R/tmp/F4 - ocupIBGEToIsco.R
In antrologos/harmonizePNAD: harmonized variables for the National Household Sample Survey (PNAD-IBGE, Brazil)
ocupIBGEToisco <-
function(var_ocup, # Character Nome da variavel sobre a ocupacaoo do individuo, ja
# convertida para o sistema isco-88
var_isic, # Character Nome da variavel setor de atividade da ocupacao do
# individuo, no sistema isic-3
var_posOcup, # Character. Nome da variavel sobre posicao na ocupacao - padronizada
var_transicoes, # Character. Nome da variavel de transicoes educacionais.
# Apenas a necessaria quando tipo="censo" e ano="2010"
tipo="censo", # Character. "censo" ou "pnad"
ano, #numeric se tipo="censo": 1960, 1970, 1980, 1991, 2000, 2010
# se tipo="pnad": 1981:1990, 1992:1993, 1995:1999, 2001:2009, 2011:2013
# se ano = NULL, todos os anos
var_ocup2 = NULL
){
Verifica_data.table <- require(data.table)
if(!Verifica_data.table){
return(
message("ERRO: Nao foi possivel carregar o pacote data.table.\nTalvez ele nao esteja instalado")
)
}
banco <- data.table(var_ocup = var_ocup,
isic = var_isic,
PosicaoOcup = var_posOcup,
trtot = var_transicoes,
isco = double(length = length(var_ocup))
)
if( tipo == "censo" & ano == 1960){
banco[var_ocup==111, isco := 6111]
banco[var_ocup==112, isco := 6121]
banco[var_ocup==113, isco := 6122]
banco[var_ocup==114, isco := 1312]
banco[var_ocup==115, isco := 1314]
banco[var_ocup==116, isco := 1315]
banco[var_ocup==117, isco := 1319]
banco[var_ocup==121, isco := 1120]
banco[var_ocup==122, isco := 1231]
banco[var_ocup==123, isco := 1311]
banco[var_ocup==124, isco := 1319]
banco[var_ocup==181, isco := 4215]
banco[var_ocup==182, isco := 4121]
banco[var_ocup==183, isco := 4215]
banco[var_ocup==184, isco := 2411]
banco[var_ocup==185, isco := 3444]
banco[var_ocup==186, isco := 4131]
banco[var_ocup==187, isco := 4111]
banco[var_ocup==188, isco := 4111]
banco[var_ocup==189, isco := 4143]
banco[var_ocup==191, isco := 4190]
banco[var_ocup==211, isco := 2142]
banco[var_ocup==212, isco := 2141]
banco[var_ocup==213, isco := 2148]
banco[var_ocup==214, isco := 2148]
banco[var_ocup==215, isco := 2113]
banco[var_ocup==216, isco := 2224]
banco[var_ocup==217, isco := 3228]
banco[var_ocup==218, isco := 3211]
banco[var_ocup==221, isco := 2213]
banco[var_ocup==222, isco := 2223]
banco[var_ocup==223, isco := 3241]
banco[var_ocup==231, isco := 2221]
banco[var_ocup==232, isco := 2222]
banco[var_ocup==241, isco := 2446]
banco[var_ocup==242, isco := 3232]
banco[var_ocup==243, isco := 3231]
banco[var_ocup==244, isco := 3225]
banco[var_ocup==245, isco := 3133]
banco[var_ocup==251, isco := 2121]
banco[var_ocup==252, isco := 2331]
banco[var_ocup==253, isco := 2320]
banco[var_ocup==254, isco := 2310]
banco[var_ocup==255, isco := 2359]
banco[var_ocup==256, isco := 2442]
banco[var_ocup==257, isco := 3340]
banco[var_ocup==261, isco := 2422]
banco[var_ocup==262, isco := 2421]
banco[var_ocup==263, isco := 2421]
banco[var_ocup==264, isco := 2429]
banco[var_ocup==265, isco := 3432]
banco[var_ocup==271, isco := 2460]
banco[var_ocup==281, isco := 2451]
banco[var_ocup==291, isco := 2452]
banco[var_ocup==292, isco := 2419]
banco[var_ocup==293, isco := 3471]
banco[var_ocup==294, isco := 3131]
banco[var_ocup==295, isco := 3131]
banco[var_ocup==311, isco := 3212]
banco[var_ocup==312, isco := 8331]
banco[var_ocup==313, isco := 8331]
banco[var_ocup==321, isco := 6113]
banco[var_ocup==322, isco := 6113]
banco[var_ocup==323, isco := 9211]
banco[var_ocup==324, isco := 9211]
banco[var_ocup==331, isco := 6152]
banco[var_ocup==332, isco := 6154]
banco[var_ocup==341, isco := 6141]
banco[var_ocup==342, isco := 6142]
banco[var_ocup==343, isco := 6141]
banco[var_ocup==344, isco := 6111]
banco[var_ocup==345, isco := 6141]
banco[var_ocup==411, isco := 7111]
banco[var_ocup==421, isco := 7113]
banco[var_ocup==431, isco := 8155]
banco[var_ocup==441, isco := 9311]
banco[var_ocup==511, isco := 7211]
banco[var_ocup==512, isco := 8122]
banco[var_ocup==513, isco := 8124]
banco[var_ocup==514, isco := 7224]
banco[var_ocup==521, isco := 8124]
banco[var_ocup==522, isco := 8113]
banco[var_ocup==523, isco := 8211]
banco[var_ocup==524, isco := 7231]
banco[var_ocup==525, isco := 7233]
banco[var_ocup==526, isco := 8223]
banco[var_ocup==527, isco := 7212]
banco[var_ocup==528, isco := 7213]
banco[var_ocup==529, isco := 7221]
banco[var_ocup==531, isco := 7231]
banco[var_ocup==532, isco := 7214]
banco[var_ocup==533, isco := 7213]
banco[var_ocup==534, isco := 7221]
banco[var_ocup==541, isco := 7431]
banco[var_ocup==542, isco := 8261]
banco[var_ocup==543, isco := 7431]
banco[var_ocup==544, isco := 8262]
banco[var_ocup==545, isco := 8262]
banco[var_ocup==546, isco := 8269]
banco[var_ocup==547, isco := 7332]
banco[var_ocup==548, isco := 8262]
banco[var_ocup==549, isco := 7432]
banco[var_ocup==551, isco := 8264]
banco[var_ocup==552, isco := 8264]
banco[var_ocup==553, isco := 8269]
banco[var_ocup==554, isco := 7432]
banco[var_ocup==561, isco := 7332]
banco[var_ocup==562, isco := 7441]
banco[var_ocup==571, isco := 7433]
banco[var_ocup==572, isco := 7432]
banco[var_ocup==573, isco := 7424]
banco[var_ocup==574, isco := 7433]
banco[var_ocup==575, isco := 7442]
banco[var_ocup==576, isco := 7442]
banco[var_ocup==581, isco := 7422]
banco[var_ocup==582, isco := 7124]
banco[var_ocup==583, isco := 7421]
banco[var_ocup==584, isco := 8141]
banco[var_ocup==585, isco := 7437]
banco[var_ocup==586, isco := 7437]
banco[var_ocup==587, isco := 7421]
banco[var_ocup==591, isco := 7245]
banco[var_ocup==592, isco := 7242]
banco[var_ocup==611, isco := 7129]
banco[var_ocup==612, isco := 7123]
banco[var_ocup==613, isco := 7122]
banco[var_ocup==614, isco := 7122]
banco[var_ocup==615, isco := 7141]
banco[var_ocup==616, isco := 7133]
banco[var_ocup==617, isco := 7132]
banco[var_ocup==618, isco := 7136]
banco[var_ocup==619, isco := 7135]
banco[var_ocup==621, isco := 7122]
banco[var_ocup==622, isco := 7132]
banco[var_ocup==623, isco := 8332]
banco[var_ocup==631, isco := 8271]
banco[var_ocup==632, isco := 7411]
banco[var_ocup==633, isco := 7411]
banco[var_ocup==634, isco := 8272]
banco[var_ocup==635, isco := 7412]
banco[var_ocup==636, isco := 7412]
banco[var_ocup==637, isco := 7412]
banco[var_ocup==638, isco := 8273]
banco[var_ocup==639, isco := 8276]
banco[var_ocup==641, isco := 8278]
banco[var_ocup==642, isco := 8277]
banco[var_ocup==643, isco := 8271]
banco[var_ocup==651, isco := 7341]
banco[var_ocup==652, isco := 7341]
banco[var_ocup==653, isco := 7343]
banco[var_ocup==654, isco := 8251]
banco[var_ocup==655, isco := 7343]
banco[var_ocup==656, isco := 7345]
banco[var_ocup==657, isco := 7346]
banco[var_ocup==661, isco := 7322]
banco[var_ocup==662, isco := 7321]
banco[var_ocup==663, isco := 7324]
banco[var_ocup==664, isco := 7321]
banco[var_ocup==671, isco := 3119]
banco[var_ocup==672, isco := 7313]
banco[var_ocup==673, isco := 7313]
banco[var_ocup==674, isco := 8231]
banco[var_ocup==675, isco := 8159]
banco[var_ocup==676, isco := 8290]
banco[var_ocup==681, isco := 7424]
banco[var_ocup==682, isco := 7424]
banco[var_ocup==683, isco := 7113]
banco[var_ocup==684, isco := 7416]
banco[var_ocup==685, isco := 7224]
banco[var_ocup==686, isco := 7141]
banco[var_ocup==687, isco := 7332]
banco[var_ocup==688, isco := 8290]
banco[var_ocup==689, isco := 9322]
banco[var_ocup==711, isco := 7411]
banco[var_ocup==712, isco := 9111]
banco[var_ocup==713, isco := 5220]
banco[var_ocup==714, isco := 9112]
banco[var_ocup==721, isco := 3415]
banco[var_ocup==722, isco := 3415]
banco[var_ocup==723, isco := 3429]
banco[var_ocup==731, isco := 3411]
banco[var_ocup==732, isco := 3416]
banco[var_ocup==733, isco := 3417]
banco[var_ocup==811, isco := 3143]
banco[var_ocup==812, isco := 5111]
banco[var_ocup==821, isco := 3142]
banco[var_ocup==822, isco := 3142]
banco[var_ocup==823, isco := 8311]
banco[var_ocup==824, isco := 8162]
banco[var_ocup==825, isco := 8340]
banco[var_ocup==826, isco := 8340]
banco[var_ocup==827, isco := 8340]
banco[var_ocup==831, isco := 8340]
banco[var_ocup==832, isco := 8333]
banco[var_ocup==833, isco := 9333]
banco[var_ocup==841, isco := 4133]
banco[var_ocup==842, isco := 8311]
banco[var_ocup==843, isco := 8311]
banco[var_ocup==844, isco := 8162]
banco[var_ocup==845, isco := 8312]
banco[var_ocup==846, isco := 8312]
banco[var_ocup==851, isco := 8322]
banco[var_ocup==852, isco := 5112]
banco[var_ocup==853, isco := 8311]
banco[var_ocup==854, isco := 8311]
banco[var_ocup==855, isco := 9332]
banco[var_ocup==861, isco := 4133]
banco[var_ocup==862, isco := 9312]
banco[var_ocup==863, isco := 9312]
banco[var_ocup==871, isco := 4142]
banco[var_ocup==872, isco := 3139]
banco[var_ocup==873, isco := 4223]
banco[var_ocup==874, isco := 4142]
banco[var_ocup==875, isco := 4142]
banco[var_ocup==876, isco := 7244]
banco[var_ocup==911, isco := 5122]
banco[var_ocup==912, isco := 5123]
banco[var_ocup==913, isco := 9131]
banco[var_ocup==921, isco := 9131]
banco[var_ocup==931, isco := 5141]
banco[var_ocup==932, isco := 5141]
banco[var_ocup==933, isco := 9131]
banco[var_ocup==934, isco := 9120]
banco[var_ocup==941, isco := 2453]
banco[var_ocup==942, isco := 2455]
banco[var_ocup==943, isco := 3472]
banco[var_ocup==944, isco := 3131]
banco[var_ocup==945, isco := 3131]
banco[var_ocup==951, isco := 3475]
banco[var_ocup==961, isco := 9142]
banco[var_ocup==962, isco := 9142]
banco[var_ocup==971, isco := 110]
banco[var_ocup==972, isco := 110]
banco[var_ocup==973, isco := 3450]
banco[var_ocup==974, isco := 3450]
banco[var_ocup==975, isco := 5162]
banco[var_ocup==976, isco := 5163]
banco[var_ocup==981, isco := 3213]
banco[var_ocup==982, isco := 9321]
banco[var_ocup==983, isco := 9151]
banco[var_ocup==984, isco := 3222]
banco[var_ocup==985, isco := 3444]
banco[var_ocup==986, isco := 9161]
banco[var_ocup==987, isco := 7233]
banco[var_ocup==988, isco := 8290]
banco[var_ocup==989, isco := 9333]
banco[var_ocup==998, isco := 9333]
banco[var_ocup==999, isco := NA]
banco[isco == 6154 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6153 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6152 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6151 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6142 & PosicaoOcup == 1, isco := 9212]
banco[isco == 6141 & PosicaoOcup == 1, isco := 9212]
banco[isco == 6122 & PosicaoOcup == 1, isco := 9211]
banco[isco == 6121 & PosicaoOcup == 1, isco := 9211]
banco[isco == 6111 & PosicaoOcup == 1, isco := 9211]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 90) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1317]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 80) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1316]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 70) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1315]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 60) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1314]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 50) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1313]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 20 | isic == 30| isic == 40) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1312]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 100), isco := 1120]
banco[(var_ocup == 117|var_ocup == 124) & isic == 10 & PosicaoOcup == 0, isco := 6111]
banco[var_ocup == 111 & PosicaoOcup == 2, isco := 1221]
banco[var_ocup == 112 & PosicaoOcup == 2, isco := 1221]
banco[var_ocup == 113 & PosicaoOcup == 2, isco := 1221]
banco[var_ocup == 181 & isic == 100, isco := 3442]
banco[var_ocup == 183 & isic == 100, isco := 3442]
banco[(var_ocup == 117 | var_ocup=124) & isic != 10 & PosicaoOcup == 0, isco := 5220]
banco[var_ocup == 999 & isic == 50, isco := 7122]
banco[var_ocup == 999 & isic == 10, isco := 9211]
banco[var_ocup == 998 & isic == 50, isco := 7122]
banco[var_ocup == 998 & isic == 100, isco := 5149]
banco[var_ocup == 989 & isic == 50, isco := 7122]
banco[var_ocup == 989 & isic == 20, isco := 9311]
banco[var_ocup == 989 & isic == 100, isco := 5149]
banco[var_ocup == 989 & isic == 10, isco := 9211]
banco[var_ocup == 989 & isic == 10 & trtot <=1, isco := 9211]
banco[var_ocup == 933 & PosicaoOcup == 1 & isic != 120 & trtot >=1, isco := 5139]
banco[var_ocup == 571 & PosicaoOcup == 1 & isic == 30, isco := 8263]
banco[var_ocup == 331 & trtot >= 2 & PosicaoOcup == 1, isco := 3142]
banco[var_ocup == 185 & isic == 80, isco := 4133]
banco[var_ocup == 322 & isic != 10, isco := 9141]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 90) & (PosicaoOcup == 1), isco := 1227]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 80) & (PosicaoOcup == 1), isco := 1226]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 70) & (PosicaoOcup == 1), isco := 1225]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 60) & (PosicaoOcup == 1), isco := 1224]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 50) & (PosicaoOcup == 1), isco := 1223]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 20|isic == 30|isic == 40) & (PosicaoOcup == 1), isco := 1222]
banco[var_ocup == 115 & PosicaoOcup == 1 , isco := 5220]
}
if( tipo == "censo" & ano == 1970){
banco[var_ocup == 101, isco := 2142]
banco[var_ocup == 102, isco := 2141]
banco[var_ocup == 103, isco := 2148]
banco[var_ocup == 104, isco := 2148]
banco[var_ocup == 11, isco := 6111]
banco[var_ocup == 111, isco := 2113]
banco[var_ocup == 112, isco := 2224]
banco[var_ocup == 113, isco := 2111]
banco[var_ocup == 114, isco := 2114]
banco[var_ocup == 115, isco := 2111]
banco[var_ocup == 116, isco := 2112]
banco[var_ocup == 12, isco := 6121]
banco[var_ocup == 121, isco := 2213]
banco[var_ocup == 122, isco := 2223]
banco[var_ocup == 123, isco := 3241]
banco[var_ocup == 13, isco := 6122]
banco[var_ocup == 130, isco := 2221]
banco[var_ocup == 131, isco := 2222]
banco[var_ocup == 132, isco := 3232]
banco[var_ocup == 133, isco := 2230]
banco[var_ocup == 134, isco := 3231]
banco[var_ocup == 135, isco := 3226]
banco[var_ocup == 136, isco := 3225]
banco[var_ocup == 137, isco := 3133]
banco[var_ocup == 138, isco := 3228]
banco[var_ocup == 139, isco := 3211]
banco[var_ocup == 14, isco := 1222]
banco[var_ocup == 141, isco := 2121]
banco[var_ocup == 142, isco := 2122]
banco[var_ocup == 143, isco := 2441]
banco[var_ocup == 144, isco := 2411]
banco[var_ocup == 145, isco := 2442]
banco[var_ocup == 15, isco := 1224]
banco[var_ocup == 151, isco := 2331]
banco[var_ocup == 152, isco := 2320]
banco[var_ocup == 153, isco := 2310]
banco[var_ocup == 154, isco := 2359]
banco[var_ocup == 155, isco := 2351]
banco[var_ocup == 156, isco := 3340]
banco[var_ocup == 16, isco := 1225]
banco[var_ocup == 161, isco := 2422]
banco[var_ocup == 162, isco := 2421]
banco[var_ocup == 163, isco := 2421]
banco[var_ocup == 164, isco := 2429]
banco[var_ocup == 165, isco := 3432]
banco[var_ocup == 17, isco := 1229]
banco[var_ocup == 171, isco := 2460]
banco[var_ocup == 172, isco := 2446]
banco[var_ocup == 173, isco := 3460]
banco[var_ocup == 181, isco := 2451]
banco[var_ocup == 191, isco := 2452]
banco[var_ocup == 192, isco := 2453]
banco[var_ocup == 193, isco := 2455]
banco[var_ocup == 194, isco := 3472]
banco[var_ocup == 195, isco := 3471]
banco[var_ocup == 196, isco := 3131]
banco[var_ocup == 197, isco := 3131]
banco[var_ocup == 198, isco := 3132]
banco[var_ocup == 21, isco := 1120]
banco[var_ocup == 211, isco := 3212]
banco[var_ocup == 212, isco := 8331]
banco[var_ocup == 213, isco := 8331]
banco[var_ocup == 22, isco := 1231]
banco[var_ocup == 221, isco := 6113]
banco[var_ocup == 222, isco := 6113]
banco[var_ocup == 223, isco := 9211]
banco[var_ocup == 224, isco := 9211]
banco[var_ocup == 23, isco := 1221]
banco[var_ocup == 231, isco := 6154]
banco[var_ocup == 232, isco := 6152]
banco[var_ocup == 24, isco := 1229]
banco[var_ocup == 241, isco := 6141]
banco[var_ocup == 242, isco := 6142]
banco[var_ocup == 243, isco := 6141]
banco[var_ocup == 244, isco := 6111]
banco[var_ocup == 245, isco := 6141]
banco[var_ocup == 31, isco := 3442]
banco[var_ocup == 311, isco := 7111]
banco[var_ocup == 32, isco := 3443]
banco[var_ocup == 321, isco := 7113]
banco[var_ocup == 33, isco := 3431]
banco[var_ocup == 331, isco := 8155]
banco[var_ocup == 34, isco := 4215]
banco[var_ocup == 341, isco := 9311]
banco[var_ocup == 35, isco := 4121]
banco[var_ocup == 36, isco := 3439]
banco[var_ocup == 37, isco := 4131]
banco[var_ocup == 38, isco := 4111]
banco[var_ocup == 39, isco := 4111]
banco[var_ocup == 40, isco := 4111]
banco[var_ocup == 41, isco := 2444]
banco[var_ocup == 411, isco := 7211]
banco[var_ocup == 412, isco := 8122]
banco[var_ocup == 413, isco := 8124]
banco[var_ocup == 414, isco := 7224]
banco[var_ocup == 42, isco := 2432]
banco[var_ocup == 421, isco := 8124]
banco[var_ocup == 422, isco := 8113]
banco[var_ocup == 423, isco := 8211]
banco[var_ocup == 424, isco := 7231]
banco[var_ocup == 425, isco := 7233]
banco[var_ocup == 426, isco := 8223]
banco[var_ocup == 427, isco := 7212]
banco[var_ocup == 428, isco := 7213]
banco[var_ocup == 429, isco := 7221]
banco[var_ocup == 43, isco := 3122]
banco[var_ocup == 430, isco := 7231]
banco[var_ocup == 431, isco := 7214]
banco[var_ocup == 432, isco := 7213]
banco[var_ocup == 433, isco := 7221]
banco[var_ocup == 44, isco := 4143]
banco[var_ocup == 441, isco := 7431]
banco[var_ocup == 442, isco := 8261]
banco[var_ocup == 443, isco := 7431]
banco[var_ocup == 444, isco := 8262]
banco[var_ocup == 445, isco := 8262]
banco[var_ocup == 446, isco := 8269]
banco[var_ocup == 447, isco := 7332]
banco[var_ocup == 448, isco := 8262]
banco[var_ocup == 449, isco := 7432]
banco[var_ocup == 45, isco := 4190]
banco[var_ocup == 450, isco := 8264]
banco[var_ocup == 451, isco := 8264]
banco[var_ocup == 452, isco := 8269]
banco[var_ocup == 461, isco := 7332]
banco[var_ocup == 462, isco := 7441]
banco[var_ocup == 471, isco := 7433]
banco[var_ocup == 472, isco := 7432]
banco[var_ocup == 473, isco := 7424]
banco[var_ocup == 474, isco := 7433]
banco[var_ocup == 475, isco := 7442]
banco[var_ocup == 476, isco := 7442]
banco[var_ocup == 481, isco := 7422]
banco[var_ocup == 482, isco := 7124]
banco[var_ocup == 483, isco := 7421]
banco[var_ocup == 484, isco := 8141]
banco[var_ocup == 485, isco := 7437]
banco[var_ocup == 486, isco := 7437]
banco[var_ocup == 487, isco := 7421]
banco[var_ocup == 491, isco := 7245]
banco[var_ocup == 492, isco := 7242]
banco[var_ocup == 511, isco := 7129]
banco[var_ocup == 512, isco := 7123]
banco[var_ocup == 513, isco := 7122]
banco[var_ocup == 514, isco := 7122]
banco[var_ocup == 515, isco := 7141]
banco[var_ocup == 516, isco := 7133]
banco[var_ocup == 517, isco := 7132]
banco[var_ocup == 518, isco := 7136]
banco[var_ocup == 519, isco := 7135]
banco[var_ocup == 520, isco := 7122]
banco[var_ocup == 521, isco := 7132]
banco[var_ocup == 522, isco := 8332]
banco[var_ocup == 531, isco := 8271]
banco[var_ocup == 532, isco := 7411]
banco[var_ocup == 533, isco := 7411]
banco[var_ocup == 534, isco := 8272]
banco[var_ocup == 535, isco := 7412]
banco[var_ocup == 536, isco := 7412]
banco[var_ocup == 537, isco := 7412]
banco[var_ocup == 538, isco := 8273]
banco[var_ocup == 539, isco := 8276]
banco[var_ocup == 540, isco := 8278]
banco[var_ocup == 541, isco := 8277]
banco[var_ocup == 542, isco := 8271]
banco[var_ocup == 551, isco := 7341]
banco[var_ocup == 552, isco := 7341]
banco[var_ocup == 553, isco := 7343]
banco[var_ocup == 554, isco := 8251]
banco[var_ocup == 555, isco := 7343]
banco[var_ocup == 556, isco := 7345]
banco[var_ocup == 557, isco := 7346]
banco[var_ocup == 561, isco := 7322]
banco[var_ocup == 562, isco := 7321]
banco[var_ocup == 563, isco := 7324]
banco[var_ocup == 564, isco := 7321]
banco[var_ocup == 571, isco := 3119]
banco[var_ocup == 572, isco := 7313]
banco[var_ocup == 573, isco := 7313]
banco[var_ocup == 574, isco := 8231]
banco[var_ocup == 575, isco := 8159]
banco[var_ocup == 576, isco := 7424]
banco[var_ocup == 577, isco := 7424]
banco[var_ocup == 578, isco := 7113]
banco[var_ocup == 579, isco := 7416]
banco[var_ocup == 580, isco := 7224]
banco[var_ocup == 581, isco := 7141]
banco[var_ocup == 582, isco := 8171]
banco[var_ocup == 583, isco := 7424]
banco[var_ocup == 584, isco := 8290]
banco[var_ocup == 585, isco := 9322]
banco[var_ocup == 586, isco := 8290]
banco[var_ocup == 611, isco := 7411]
banco[var_ocup == 612, isco := 9111]
banco[var_ocup == 613, isco := 5220]
banco[var_ocup == 614, isco := 9112]
banco[var_ocup == 621, isco := 3415]
banco[var_ocup == 622, isco := 3415]
banco[var_ocup == 623, isco := 3429]
banco[var_ocup == 631, isco := 3411]
banco[var_ocup == 632, isco := 3413]
banco[var_ocup == 633, isco := 3411]
banco[var_ocup == 634, isco := 3419]
banco[var_ocup == 635, isco := 3416]
banco[var_ocup == 711, isco := 3143]
banco[var_ocup == 712, isco := 5111]
banco[var_ocup == 721, isco := 3142]
banco[var_ocup == 722, isco := 3142]
banco[var_ocup == 723, isco := 8311]
banco[var_ocup == 724, isco := 8162]
banco[var_ocup == 725, isco := 8340]
banco[var_ocup == 726, isco := 8340]
banco[var_ocup == 727, isco := 8340]
banco[var_ocup == 731, isco := 8333]
banco[var_ocup == 732, isco := 9333]
banco[var_ocup == 741, isco := 4133]
banco[var_ocup == 742, isco := 8311]
banco[var_ocup == 743, isco := 8311]
banco[var_ocup == 744, isco := 8162]
banco[var_ocup == 745, isco := 8312]
banco[var_ocup == 746, isco := 8312]
banco[var_ocup == 751, isco := 8322]
banco[var_ocup == 752, isco := 5112]
banco[var_ocup == 753, isco := 9332]
banco[var_ocup == 761, isco := 4133]
banco[var_ocup == 762, isco := 9312]
banco[var_ocup == 763, isco := 9312]
banco[var_ocup == 771, isco := 4142]
banco[var_ocup == 772, isco := 4142]
banco[var_ocup == 773, isco := 3139]
banco[var_ocup == 774, isco := 4223]
banco[var_ocup == 775, isco := 4142]
banco[var_ocup == 776, isco := 4142]
banco[var_ocup == 777, isco := 7244]
banco[var_ocup == 811, isco := 5122]
banco[var_ocup == 812, isco := 5123]
banco[var_ocup == 813, isco := 9131]
banco[var_ocup == 821, isco := 5141]
banco[var_ocup == 822, isco := 5141]
banco[var_ocup == 823, isco := 9131]
banco[var_ocup == 824, isco := 9120]
banco[var_ocup == 831, isco := 3475]
banco[var_ocup == 832, isco := 3475]
banco[var_ocup == 833, isco := 3475]
banco[var_ocup == 834, isco := 3475]
banco[var_ocup == 841, isco := 110]
banco[var_ocup == 842, isco := 110]
banco[var_ocup == 843, isco := 3450]
banco[var_ocup == 844, isco := 3450]
banco[var_ocup == 845, isco := 5162]
banco[var_ocup == 846, isco := 5163]
banco[var_ocup == 847, isco := 3450]
banco[var_ocup == 911, isco := 9151]
banco[var_ocup == 912, isco := 9321]
banco[var_ocup == 913, isco := 3213]
banco[var_ocup == 914, isco := 3222]
banco[var_ocup == 915, isco := 3444]
banco[var_ocup == 916, isco := 9161]
banco[var_ocup == 917, isco := 7233]
banco[var_ocup == 918, isco := 3111]
banco[var_ocup == 919, isco := 3131]
banco[var_ocup == 920, isco := 8290]
banco[var_ocup == 921, isco := 9152]
banco[var_ocup == 922, isco := 9333]
banco[var_ocup == 923, isco := 9333]
banco[var_ocup == 924, isco := NA]
banco[var_ocup == 925, isco := NA]
banco[isco ==6154 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6153 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6152 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6151 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6142 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6141 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6122 & PosicaoOcup == 1, isco := 9211]
banco[isco ==6121 & PosicaoOcup == 1, isco := 9211]
banco[isco ==6111 & PosicaoOcup == 1, isco := 9211]
banco[(var_ocup==17|var_ocup==24) & (isic==90) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1317]
banco[(var_ocup==17|var_ocup==24) & (isic==80) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1316]
banco[(var_ocup==17|var_ocup==24) & (isic==70) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1315]
banco[(var_ocup==17|var_ocup==24) & (isic==60) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1314]
banco[(var_ocup==17|var_ocup==24) & (isic==50) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1313]
banco[(var_ocup==17|var_ocup==24) & (isic==20|isic==30|isic==40) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1312]
banco[(var_ocup==17|var_ocup==24) & (isic==100), isco := 1120]
banco[(var_ocup==17|var_ocup==24) & (isic==90) & (PosicaoOcup==1), isco := 1227]
banco[(var_ocup==17|var_ocup==24) & isic != 10 & PosicaoOcup==0, isco := 5220]
banco[(var_ocup==17|var_ocup==24) & isic == 10 & PosicaoOcup==0, isco := 6111]
banco[var_ocup == 232 & trtot >= 2 & PosicaoOcup == 1, isco := 3142]
banco[var_ocup == 42 & trtot < 4, isco := 4141]
banco[var_ocup == 471 & PosicaoOcup==1 & isic == 30, isco := 8263]
banco[(var_ocup==17|var_ocup==24) & (isic==80)& (PosicaoOcup==1), isco := 1226]
banco[var_ocup==34 & isic==100, isco := 3442]
banco[var_ocup==222 & isic!=10, isco := 9141]
banco[var_ocup==13 & PosicaoOcup == 2, isco := 1311]
banco[var_ocup==12 & PosicaoOcup == 2, isco := 1311]
banco[var_ocup==11 & PosicaoOcup == 2, isco := 1311]
banco[var_ocup == 925 & isic == 50 , isco := 7122]
banco[var_ocup == 925 & isic == 100 , isco := 5149]
banco[var_ocup == 925 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 923 & isic == 50 , isco := 7122]
banco[var_ocup == 923 & isic == 20, isco := 9311]
banco[var_ocup == 923 & isic == 100 , isco := 5149]
banco[var_ocup == 923 & isic == 10, isco := 9211]
banco[var_ocup == 922 & isic == 50 , isco := 7122]
banco[var_ocup == 922 & isic == 20, isco := 9311]
banco[var_ocup == 922 & isic == 10, isco := 9211]
banco[var_ocup == 823 & PosicaoOcup==1 & isic != 120 & trtot >=1, isco == 5139]
banco[(var_ocup==17|var_ocup==24) & (isic==70) & (PosicaoOcup==1), isco := 1225]
banco[(var_ocup==17|var_ocup==24) & (isic==60) & (PosicaoOcup==1), isco := 1224]
banco[(var_ocup==17|var_ocup==24) & (isic==50) & (PosicaoOcup==1), isco := 1223]
banco[(var_ocup==17|var_ocup==24) & (isic==20|isic==30|isic==40) & (PosicaoOcup==1), isco := 1222]
banco[isco==3431 & trtot >=5, isco := 2419]
banco[var_ocup == 15 & PosicaoOcup == 1 , isco := 5220]
}
if((tipo == "censo" & ano == 1980) | (tipo == "pnad" & (ano >= 1981 & ano <= 1990))){
if(!is.null(var_ocup2)){
banco$var_ocup[!is.na(var_ocup2)] <- var_ocup2[!is.na(var_ocup2)]
}
banco[var_ocup == 851, isco := 110]
banco[var_ocup == 852, isco := 110]
banco[var_ocup == 853, isco := 110]
banco[var_ocup == 20, isco := 1110]
banco[var_ocup == 21, isco := 1120]
banco[var_ocup == 6, isco := 1221]
banco[var_ocup == 30, isco := 1221]
banco[var_ocup == 31, isco := 1221]
banco[var_ocup == 7, isco := 1222]
banco[var_ocup == 8, isco := 1222]
banco[var_ocup == 32, isco := 1222]
banco[var_ocup == 33, isco := 1222]
banco[var_ocup == 9, isco := 1223]
banco[var_ocup == 34, isco := 1223]
banco[var_ocup == 10, isco := 1224]
banco[var_ocup == 35, isco := 1224]
banco[var_ocup == 11, isco := 1225]
banco[var_ocup == 36, isco := 1225]
banco[var_ocup == 12, isco := 1226]
banco[var_ocup == 37, isco := 1226]
banco[var_ocup == 13, isco := 1229]
banco[var_ocup == 38, isco := 1231]
banco[var_ocup == 39, isco := 1239]
banco[var_ocup == 601, isco := 1314]
banco[var_ocup == 801, isco := 1314]
banco[var_ocup == 811, isco := 1315]
banco[var_ocup == 40, isco := 1319]
banco[var_ocup == 123, isco := 2111]
banco[var_ocup == 125, isco := 2111]
banco[var_ocup == 121, isco := 2113]
banco[var_ocup == 171, isco := 2121]
banco[var_ocup == 172, isco := 2122]
banco[var_ocup == 173, isco := 2131]
banco[var_ocup == 102, isco := 2141]
banco[var_ocup == 101, isco := 2142]
banco[var_ocup == 124, isco := 2147]
banco[var_ocup == 103, isco := 2148]
banco[var_ocup == 104, isco := 2148]
banco[var_ocup == 142, isco := 2211]
banco[var_ocup == 143, isco := 2212]
banco[var_ocup == 141, isco := 2213]
banco[var_ocup == 151, isco := 2221]
banco[var_ocup == 152, isco := 2222]
banco[var_ocup == 144, isco := 2223]
banco[var_ocup == 122, isco := 2224]
banco[var_ocup == 154, isco := 2229]
banco[var_ocup == 161, isco := 2229]
banco[var_ocup == 153, isco := 2230]
banco[var_ocup == 211, isco := 2310]
banco[var_ocup == 212, isco := 2310]
banco[var_ocup == 213, isco := 2320]
banco[var_ocup == 214, isco := 2331]
banco[var_ocup == 215, isco := 2331]
banco[var_ocup == 216, isco := 2331]
banco[var_ocup == 217, isco := 2332]
banco[var_ocup == 221, isco := 2351]
banco[var_ocup == 218, isco := 2359]
banco[var_ocup == 219, isco := 2359]
banco[var_ocup == 182, isco := 2411]
banco[var_ocup == 232, isco := 2421]
banco[var_ocup == 233, isco := 2421]
banco[var_ocup == 231, isco := 2422]
banco[var_ocup == 241, isco := 2429]
banco[var_ocup == 292, isco := 2431]
banco[var_ocup == 181, isco := 2441]
banco[var_ocup == 201, isco := 2442]
banco[var_ocup == 203, isco := 2443]
banco[var_ocup == 205, isco := 2443]
banco[var_ocup == 293, isco := 2444]
banco[var_ocup == 202, isco := 2445]
banco[var_ocup == 204, isco := 2446]
banco[var_ocup == 261, isco := 2451]
banco[var_ocup == 271, isco := 2452]
banco[var_ocup == 275, isco := 2453]
banco[var_ocup == 276, isco := 2455]
banco[var_ocup == 277, isco := 2455]
banco[var_ocup == 279, isco := 2455]
banco[var_ocup == 251, isco := 2460]
banco[var_ocup == 131, isco := 3111]
banco[var_ocup == 133, isco := 3111]
banco[var_ocup == 112, isco := 3112]
banco[var_ocup == 405, isco := 3113]
banco[var_ocup == 401, isco := 3117]
banco[var_ocup == 402, isco := 3117]
banco[var_ocup == 111, isco := 3118]
banco[var_ocup == 113, isco := 3119]
banco[var_ocup == 403, isco := 3119]
banco[var_ocup == 406, isco := 3119]
banco[var_ocup == 193, isco := 3122]
banco[var_ocup == 274, isco := 3131]
banco[var_ocup == 280, isco := 3131]
banco[var_ocup == 281, isco := 3131]
banco[var_ocup == 282, isco := 3132]
banco[var_ocup == 165, isco := 3133]
banco[var_ocup == 283, isco := 3139]
banco[var_ocup == 773, isco := 3139]
banco[var_ocup == 721, isco := 3142]
banco[var_ocup == 722, isco := 3142]
banco[var_ocup == 711, isco := 3143]
banco[var_ocup == 51, isco := 3152]
banco[var_ocup == 571, isco := 3152]
banco[var_ocup == 588, isco := 3152]
banco[var_ocup == 168, isco := 3211]
banco[var_ocup == 302, isco := 3212]
banco[var_ocup == 917, isco := 3222]
banco[var_ocup == 164, isco := 3224]
banco[var_ocup == 167, isco := 3225]
banco[var_ocup == 163, isco := 3226]
banco[var_ocup == 132, isco := 3228]
banco[var_ocup == 162, isco := 3231]
banco[var_ocup == 166, isco := 3232]
banco[var_ocup == 222, isco := 3340]
banco[var_ocup == 641, isco := 3411]
banco[var_ocup == 643, isco := 3411]
banco[var_ocup == 642, isco := 3413]
banco[var_ocup == 631, isco := 3415]
banco[var_ocup == 632, isco := 3415]
banco[var_ocup == 633, isco := 3429]
banco[var_ocup == 646, isco := 3416]
banco[var_ocup == 644, isco := 3417]
banco[var_ocup == 645, isco := 3419]
banco[var_ocup == 183, isco := 3431]
banco[var_ocup == 242, isco := 3432]
banco[var_ocup == 243, isco := 3432]
banco[var_ocup == 244, isco := 3432]
banco[var_ocup == 192, isco := 3434]
banco[var_ocup == 191, isco := 3439]
banco[var_ocup == 50, isco := 3442]
banco[var_ocup == 918, isco := 3444]
banco[var_ocup == 854, isco := 3450]
banco[var_ocup == 855, isco := 3450]
banco[var_ocup == 858, isco := 3450]
banco[var_ocup == 273, isco := 3471]
banco[var_ocup == 278, isco := 3472]
banco[var_ocup == 831, isco := 3475]
banco[var_ocup == 832, isco := 3475]
banco[var_ocup == 833, isco := 3475]
banco[var_ocup == 834, isco := 3475]
banco[var_ocup == 56, isco := 4111]
banco[var_ocup == 57, isco := 4112]
banco[var_ocup == 58, isco := 4113]
banco[var_ocup == 59, isco := 4115]
banco[var_ocup == 52, isco := 4121]
banco[var_ocup == 53, isco := 4121]
banco[var_ocup == 60, isco := 4121]
banco[var_ocup == 64, isco := 4190]
banco[var_ocup == 65, isco := 4121]
banco[var_ocup == 54, isco := 4131]
banco[var_ocup == 55, isco := 4131]
banco[var_ocup == 741, isco := 4133]
banco[var_ocup == 761, isco := 4133]
banco[var_ocup == 62, isco := 2431]
banco[var_ocup == 291, isco := 2432]
banco[var_ocup == 771, isco := 4142]
banco[var_ocup == 772, isco := 4142]
banco[var_ocup == 775, isco := 4142]
banco[var_ocup == 61, isco := 4141]
banco[var_ocup == 603, isco := 4211]
banco[var_ocup == 63, isco := 4222]
banco[var_ocup == 774, isco := 4223]
banco[var_ocup == 712, isco := 5111]
banco[var_ocup == 752, isco := 5112]
banco[var_ocup == 813, isco := 5122]
banco[var_ocup == 814, isco := 5123]
banco[var_ocup == 815, isco := 5123]
banco[var_ocup == 821, isco := 5141]
banco[var_ocup == 822, isco := 5141]
banco[var_ocup == 823, isco := 5141]
banco[var_ocup == 824, isco := 5141]
banco[var_ocup == 856, isco := 5162]
banco[var_ocup == 857, isco := 5163]
banco[var_ocup == 859, isco := 5169]
banco[var_ocup == 602, isco := 5220]
banco[var_ocup == 605, isco := 5220]
banco[var_ocup == 1, isco := 6111]
banco[var_ocup == 301, isco := 6111]
banco[var_ocup == 335, isco := 6111]
banco[var_ocup == 914, isco := 3213]
banco[var_ocup == 919, isco := 6113]
banco[var_ocup == 2, isco := 6121]
banco[var_ocup == 3, isco := 6122]
banco[var_ocup == 4, isco := 6129]
banco[var_ocup == 5, isco := 6129]
banco[var_ocup == 331, isco := 6141]
banco[var_ocup == 332, isco := 6141]
banco[var_ocup == 334, isco := 6141]
banco[var_ocup == 336, isco := 6141]
banco[var_ocup == 333, isco := 6142]
banco[var_ocup == 322, isco := 6152]
banco[var_ocup == 321, isco := 6154]
banco[var_ocup == 341, isco := 7111]
banco[var_ocup == 345, isco := 7113]
banco[var_ocup == 578, isco := 7113]
banco[var_ocup == 512, isco := 7122]
banco[var_ocup == 513, isco := 7122]
banco[var_ocup == 519, isco := 7122]
banco[var_ocup == 511, isco := 7123]
banco[var_ocup == 482, isco := 7124]
banco[var_ocup == 404, isco := 7129]
banco[var_ocup == 516, isco := 7132]
banco[var_ocup == 520, isco := 7132]
banco[var_ocup == 515, isco := 7133]
banco[var_ocup == 518, isco := 7135]
banco[var_ocup == 517, isco := 7136]
banco[var_ocup == 913, isco := 7136]
banco[var_ocup == 514, isco := 7141]
banco[var_ocup == 581, isco := 7141]
banco[var_ocup == 915, isco := 7143]
banco[var_ocup == 414, isco := 7211]
banco[var_ocup == 426, isco := 7212]
banco[var_ocup == 428, isco := 7213]
banco[var_ocup == 430, isco := 7213]
banco[var_ocup == 427, isco := 7214]
banco[var_ocup == 429, isco := 7221]
banco[var_ocup == 418, isco := 7222]
banco[var_ocup == 423, isco := 7223]
banco[var_ocup == 416, isco := 7224]
banco[var_ocup == 417, isco := 7224]
banco[var_ocup == 424, isco := 7231]
banco[var_ocup == 431, isco := 7231]
banco[var_ocup == 425, isco := 7233]
banco[var_ocup == 921, isco := 7233]
banco[var_ocup == 493, isco := 7242]
banco[var_ocup == 495, isco := 7243]
banco[var_ocup == 497, isco := 7244]
banco[var_ocup == 776, isco := 7244]
banco[var_ocup == 496, isco := 7245]
banco[var_ocup == 498, isco := 7245]
banco[var_ocup == 572, isco := 7313]
banco[var_ocup == 573, isco := 7313]
banco[var_ocup == 562, isco := 7321]
banco[var_ocup == 564, isco := 7321]
banco[var_ocup == 561, isco := 7322]
banco[var_ocup == 563, isco := 7324]
banco[var_ocup == 272, isco := 7332]
banco[var_ocup == 447, isco := 7332]
banco[var_ocup == 461, isco := 7332]
banco[var_ocup == 462, isco := 7441]
banco[var_ocup == 475, isco := 7424]
banco[var_ocup == 490, isco := 7424]
banco[var_ocup == 551, isco := 7341]
banco[var_ocup == 552, isco := 7341]
banco[var_ocup == 553, isco := 7343]
banco[var_ocup == 555, isco := 7343]
banco[var_ocup == 556, isco := 7345]
banco[var_ocup == 557, isco := 7346]
banco[var_ocup == 532, isco := 7411]
banco[var_ocup == 533, isco := 7411]
banco[var_ocup == 535, isco := 7412]
banco[var_ocup == 536, isco := 7412]
banco[var_ocup == 537, isco := 7412]
banco[var_ocup == 579, isco := 7416]
banco[var_ocup == 580, isco := 7416]
banco[var_ocup == 483, isco := 7421]
banco[var_ocup == 489, isco := 7421]
banco[var_ocup == 481, isco := 7422]
banco[var_ocup == 577, isco := 7424]
banco[var_ocup == 441, isco := 7431]
banco[var_ocup == 443, isco := 7431]
banco[var_ocup == 449, isco := 7432]
banco[var_ocup == 474, isco := 7432]
banco[var_ocup == 470, isco := 7433]
banco[var_ocup == 472, isco := 7433]
banco[var_ocup == 476, isco := 7433]
banco[var_ocup == 473, isco := 7435]
banco[var_ocup == 471, isco := 7436]
banco[var_ocup == 487, isco := 7437]
banco[var_ocup == 488, isco := 7437]
banco[var_ocup == 477, isco := 7442]
banco[var_ocup == 479, isco := 7442]
banco[var_ocup == 351, isco := 8111]
banco[var_ocup == 391, isco := 8113]
banco[var_ocup == 421, isco := 8113]
banco[var_ocup == 411, isco := 8122]
banco[var_ocup == 412, isco := 8122]
banco[var_ocup == 413, isco := 8124]
banco[var_ocup == 419, isco := 8124]
banco[var_ocup == 485, isco := 8141]
banco[var_ocup == 486, isco := 8141]
banco[var_ocup == 361, isco := 8155]
banco[var_ocup == 576, isco := 8159]
banco[var_ocup == 499, isco := 8161]
banco[var_ocup == 723, isco := 8162]
banco[var_ocup == 724, isco := 8162]
banco[var_ocup == 744, isco := 8162]
banco[var_ocup == 922, isco := 8163]
banco[var_ocup == 420, isco := 8211]
banco[var_ocup == 422, isco := 8211]
banco[var_ocup == 587, isco := 8212]
banco[var_ocup == 415, isco := 8223]
banco[var_ocup == 574, isco := 8231]
banco[var_ocup == 575, isco := 8231]
banco[var_ocup == 586, isco := 8231]
banco[var_ocup == 484, isco := 8240]
banco[var_ocup == 554, isco := 8251]
banco[var_ocup == 585, isco := 8253]
banco[var_ocup == 442, isco := 8261]
banco[var_ocup == 444, isco := 8262]
banco[var_ocup == 445, isco := 8262]
banco[var_ocup == 448, isco := 8262]
banco[var_ocup == 450, isco := 8264]
banco[var_ocup == 451, isco := 8264]
banco[var_ocup == 478, isco := 8266]
banco[var_ocup == 446, isco := 8269]
banco[var_ocup == 452, isco := 8269]
banco[var_ocup == 531, isco := 8271]
banco[var_ocup == 542, isco := 8271]
banco[var_ocup == 534, isco := 8272]
banco[var_ocup == 538, isco := 8273]
banco[var_ocup == 545, isco := 8273]
banco[var_ocup == 544, isco := 8275]
banco[var_ocup == 539, isco := 8276]
banco[var_ocup == 541, isco := 8277]
banco[var_ocup == 543, isco := 8277]
banco[var_ocup == 540, isco := 8278]
banco[var_ocup == 491, isco := 8282]
banco[var_ocup == 492, isco := 8283]
banco[var_ocup == 494, isco := 8283]
banco[var_ocup == 583, isco := 8290]
banco[var_ocup == 589, isco := 8290]
banco[var_ocup == 923, isco := 8290]
banco[var_ocup == 742, isco := 8311]
banco[var_ocup == 743, isco := 8311]
banco[var_ocup == 745, isco := 8312]
banco[var_ocup == 746, isco := 8312]
banco[var_ocup == 751, isco := 8322]
banco[var_ocup == 303, isco := 8331]
banco[var_ocup == 521, isco := 8332]
banco[var_ocup == 731, isco := 8333]
banco[var_ocup == 582, isco := 8334]
banco[var_ocup == 725, isco := 8340]
banco[var_ocup == 726, isco := 8340]
banco[var_ocup == 727, isco := 8340]
banco[var_ocup == 611, isco := 9111]
banco[var_ocup == 612, isco := 9111]
banco[var_ocup == 613, isco := 9111]
banco[var_ocup == 614, isco := 9111]
banco[var_ocup == 615, isco := 9111]
banco[var_ocup == 617, isco := 9112]
banco[var_ocup == 621, isco := 9112]
banco[var_ocup == 826, isco := 9120]
banco[var_ocup == 916, isco := 9120]
banco[var_ocup == 805, isco := 9131]
banco[var_ocup == 825, isco := 9131]
banco[var_ocup == 812, isco := 9132]
banco[var_ocup == 844, isco := 9141]
banco[var_ocup == 842, isco := 9151]
banco[var_ocup == 845, isco := 9151]
banco[var_ocup == 841, isco := 9141]
banco[var_ocup == 843, isco := 9152]
banco[var_ocup == 912, isco := 9153]
banco[var_ocup == 616, isco := 9153]
banco[var_ocup == 920, isco := 9161]
banco[var_ocup == 304, isco := 9211]
banco[var_ocup == 926, isco := 9333]
banco[var_ocup == 381, isco := 9311]
banco[var_ocup == 371, isco := 9311]
banco[var_ocup == 762, isco := 9312]
banco[var_ocup == 925, isco := 9312]
banco[var_ocup == 911, isco := 9321]
banco[var_ocup == 584, isco := 9322]
banco[var_ocup == 753, isco := 9332]
banco[var_ocup == 604, isco := 9333]
banco[var_ocup == 732, isco := 9333]
banco[var_ocup == 924, isco := 9333]
banco[var_ocup == 927, isco := NA]
banco[var_ocup == 5 & PosicaoOcup==2, isco := 1311]
banco[var_ocup == 4 & PosicaoOcup==2, isco := 1311]
banco[var_ocup == 3 & PosicaoOcup==2, isco := 1311]
banco[var_ocup == 2 & PosicaoOcup==2, isco := 1311]
banco[var_ocup == 1 & PosicaoOcup==2, isco := 1311]
banco[var_ocup == 154 & trtot < 6, isco := 3241]
banco[var_ocup == 919 & isic != 10, isco := 9141]
banco[var_ocup == 927 & isic == 50, isco := 7122]
banco[var_ocup == 927 & isic == 100, isco := 5149]
banco[var_ocup == 927 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 926 & isic == 50, isco := 7122]
banco[var_ocup == 926 & isic == 20, isco := 9311]
banco[var_ocup == 926 & isic == 100, isco := 5149]
banco[var_ocup == 926 & isic == 10, isco := 9211]
banco[var_ocup == 924 & isic == 20, isco := 9311]
banco[var_ocup == 924 & isic == 10, isco := 9211]
banco[var_ocup == 825 & PosicaoOcup==1 & isic != 120 & trtot >=1, isco == 5139]
banco[var_ocup == 470 & PosicaoOcup==1 & isic == 30, isco := 8263]
banco[var_ocup == 322 & trtot >= 2 & PosicaoOcup == 1, isco :=3142]
banco[var_ocup == 291 & trtot < 4, isco := 4141]
banco[var_ocup == 852, isco := 5123]
banco[var_ocup == 811, isco := 5123]
banco[var_ocup == 10 & PosicaoOcup==1, isco := 5220]
banco[var_ocup == 852 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco := 1314]
banco[var_ocup == 811 & ((PosicaoOcup == 3 & isic == 70) | PosicaoOcup == 2), isco := 1315]
banco[var_ocup == 601, isco := 5220]
banco[var_ocup == 601 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco := 1314]
banco[isco == 3431 & trtot >=5, isco := 2419]
banco[isco == 6154 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6153 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6152 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6151 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6142 & PosicaoOcup == 1, isco := 9212]
banco[isco == 6141 & PosicaoOcup == 1, isco := 9212]
banco[isco == 6122 & PosicaoOcup == 1, isco := 9211]
banco[isco == 6121 & PosicaoOcup == 1, isco := 9211]
}
if((tipo == "censo" & ano == 1991) | (tipo == "pnad" & (ano >= 1992 & ano <= 2001))){
banco[var_ocup ==1, isco := 6111]
banco[var_ocup ==10, isco := 1224]
banco[var_ocup ==101, isco := 2142]
banco[var_ocup ==102, isco := 2141]
banco[var_ocup ==103, isco := 2148]
banco[var_ocup ==104, isco := 2148]
banco[var_ocup ==11, isco := 1225]
banco[var_ocup ==111, isco := 3118]
banco[var_ocup ==112, isco := 3112]
banco[var_ocup ==113, isco := 3119]
banco[var_ocup ==12, isco := 1226]
banco[var_ocup ==121, isco := 2113]
banco[var_ocup ==122, isco := 2224]
banco[var_ocup ==123, isco := 2111]
banco[var_ocup ==124, isco := 2147]
banco[var_ocup ==125, isco := 2111]
banco[var_ocup ==13, isco := 9112]
banco[var_ocup ==131, isco := 3111]
banco[var_ocup ==132, isco := 3228]
banco[var_ocup ==133, isco := 3111]
banco[var_ocup ==14, isco := 9111]
banco[var_ocup ==141, isco := 2213]
banco[var_ocup ==142, isco := 2211]
banco[var_ocup ==143, isco := 2212]
banco[var_ocup ==144, isco := 2223]
banco[var_ocup ==15, isco := 1229]
banco[var_ocup ==151, isco := 2221]
banco[var_ocup ==152, isco := 2222]
banco[var_ocup ==153, isco := 2230]
banco[var_ocup ==154, isco := 2229]
banco[var_ocup ==161, isco := 2229]
banco[var_ocup ==162, isco := 3231]
banco[var_ocup ==163, isco := 3226]
banco[var_ocup ==164, isco := 3224]
banco[var_ocup ==165, isco := 3133]
banco[var_ocup ==166, isco := 3232]
banco[var_ocup ==167, isco := 3225]
banco[var_ocup ==168, isco := 3211]
banco[var_ocup ==171, isco := 2121]
banco[var_ocup ==172, isco := 2122]
banco[var_ocup ==173, isco := 2131]
banco[var_ocup ==181, isco := 2441]
banco[var_ocup ==182, isco := 2411]
banco[var_ocup ==183, isco := 3431]
banco[var_ocup ==191, isco := 3439]
banco[var_ocup ==192, isco := 3434]
banco[var_ocup ==193, isco := 4143]
banco[var_ocup ==194, isco := 3122]
banco[var_ocup ==2, isco := 6121]
banco[var_ocup ==20, isco := 1110]
banco[var_ocup ==201, isco := 2442]
banco[var_ocup ==202, isco := 2445]
banco[var_ocup ==203, isco := 2443]
banco[var_ocup ==204, isco := 2446]
banco[var_ocup ==205, isco := 2443]
banco[var_ocup ==21, isco := 1120]
banco[var_ocup ==211, isco := 2310]
banco[var_ocup ==212, isco := 2310]
banco[var_ocup ==213, isco := 2320]
banco[var_ocup ==214, isco := 2331]
banco[var_ocup ==215, isco := 2331]
banco[var_ocup ==216, isco := 2331]
banco[var_ocup ==217, isco := 2332]
banco[var_ocup ==218, isco := 2359]
banco[var_ocup ==219, isco := 2359]
banco[var_ocup ==221, isco := 2351]
banco[var_ocup ==222, isco := 3340]
banco[var_ocup ==231, isco := 2422]
banco[var_ocup ==232, isco := 2421]
banco[var_ocup ==233, isco := 2421]
banco[var_ocup ==241, isco := 2429]
banco[var_ocup ==242, isco := 3432]
banco[var_ocup ==243, isco := 3432]
banco[var_ocup ==244, isco := 3432]
banco[var_ocup ==251, isco := 2460]
banco[var_ocup ==252, isco := 3242]
banco[var_ocup ==261, isco := 2451]
banco[var_ocup ==271, isco := 2452]
banco[var_ocup ==272, isco := 7332]
banco[var_ocup ==273, isco := 3471]
banco[var_ocup ==274, isco := 3131]
banco[var_ocup ==275, isco := 2453]
banco[var_ocup ==276, isco := 2455]
banco[var_ocup ==277, isco := 2455]
banco[var_ocup ==278, isco := 3472]
banco[var_ocup ==279, isco := 2455]
banco[var_ocup ==280, isco := 3131]
banco[var_ocup ==281, isco := 3131]
banco[var_ocup ==282, isco := 3132]
banco[var_ocup ==283, isco := 3139]
banco[var_ocup ==291, isco := 2432]
banco[var_ocup ==292, isco := 2431]
banco[var_ocup ==293, isco := 2444]
banco[var_ocup ==3, isco := 6122]
banco[var_ocup ==30, isco := 1221]
banco[var_ocup ==301, isco := 6111]
banco[var_ocup ==302, isco := 3212]
banco[var_ocup ==303, isco := 8331]
banco[var_ocup ==304, isco := 9211]
banco[var_ocup ==305, isco := 9211]
banco[var_ocup ==31, isco := 1221]
banco[var_ocup ==32, isco := 1222]
banco[var_ocup ==321, isco := 6154]
banco[var_ocup ==322, isco := 6152]
banco[var_ocup ==33, isco := 1222]
banco[var_ocup ==331, isco := 6141]
banco[var_ocup ==332, isco := 6141]
banco[var_ocup ==333, isco := 6142]
banco[var_ocup ==334, isco := 6141]
banco[var_ocup ==335, isco := 6111]
banco[var_ocup ==336, isco := 6141]
banco[var_ocup ==34, isco := 1223]
banco[var_ocup ==341, isco := 7111]
banco[var_ocup ==345, isco := 7113]
banco[var_ocup ==35, isco := 1224]
banco[var_ocup ==351, isco := 8111]
banco[var_ocup ==36, isco := 1225]
banco[var_ocup ==361, isco := 8155]
banco[var_ocup ==37, isco := 1226]
banco[var_ocup ==371, isco := 9311]
banco[var_ocup ==38, isco := 1231]
banco[var_ocup ==381, isco := 9311]
banco[var_ocup ==39, isco := 1239]
banco[var_ocup ==391, isco := 8113]
banco[var_ocup ==4, isco := 6129]
banco[var_ocup ==40, isco := 1319]
banco[var_ocup ==401, isco := 3117]
banco[var_ocup ==402, isco := 3117]
banco[var_ocup ==403, isco := 3119]
banco[var_ocup ==404, isco := 7129]
banco[var_ocup ==405, isco := 3113]
banco[var_ocup ==406, isco := 3119]
banco[var_ocup ==411, isco := 8122]
banco[var_ocup ==412, isco := 8122]
banco[var_ocup ==413, isco := 8124]
banco[var_ocup ==414, isco := 7211]
banco[var_ocup ==415, isco := 8223]
banco[var_ocup ==416, isco := 7224]
banco[var_ocup ==417, isco := 7224]
banco[var_ocup ==418, isco := 7222]
banco[var_ocup ==419, isco := 8124]
banco[var_ocup ==420, isco := 8211]
banco[var_ocup ==421, isco := 8113]
banco[var_ocup ==422, isco := 8211]
banco[var_ocup ==423, isco := 7223]
banco[var_ocup ==424, isco := 7231]
banco[var_ocup ==425, isco := 7233]
banco[var_ocup ==426, isco := 7212]
banco[var_ocup ==427, isco := 7214]
banco[var_ocup ==428, isco := 7213]
banco[var_ocup ==429, isco := 7221]
banco[var_ocup ==430, isco := 7213]
banco[var_ocup ==431, isco := 7231]
banco[var_ocup ==441, isco := 7431]
banco[var_ocup ==442, isco := 8261]
banco[var_ocup ==443, isco := 7431]
banco[var_ocup ==444, isco := 8262]
banco[var_ocup ==445, isco := 8262]
banco[var_ocup ==446, isco := 8269]
banco[var_ocup ==447, isco := 7332]
banco[var_ocup ==448, isco := 8262]
banco[var_ocup ==449, isco := 7432]
banco[var_ocup ==450, isco := 8264]
banco[var_ocup ==451, isco := 8264]
banco[var_ocup ==452, isco := 8269]
banco[var_ocup ==461, isco := 7332]
banco[var_ocup ==462, isco := 7441]
banco[var_ocup ==470, isco := 7433]
banco[var_ocup ==471, isco := 7436]
banco[var_ocup ==472, isco := 7433]
banco[var_ocup ==473, isco := 7435]
banco[var_ocup ==474, isco := 7432]
banco[var_ocup ==475, isco := 7424]
banco[var_ocup ==476, isco := 7433]
banco[var_ocup ==477, isco := 7442]
banco[var_ocup ==478, isco := 8266]
banco[var_ocup ==479, isco := 7442]
banco[var_ocup ==481, isco := 7422]
banco[var_ocup ==482, isco := 7124]
banco[var_ocup ==483, isco := 7421]
banco[var_ocup ==484, isco := 8240]
banco[var_ocup ==485, isco := 8141]
banco[var_ocup ==486, isco := 8141]
banco[var_ocup ==487, isco := 7437]
banco[var_ocup ==488, isco := 7437]
banco[var_ocup ==489, isco := 7421]
banco[var_ocup ==490, isco := 7424]
banco[var_ocup ==5, isco := 6129]
banco[var_ocup ==50, isco := 3442]
banco[var_ocup ==501, isco := 8282]
banco[var_ocup ==502, isco := 8283]
banco[var_ocup ==503, isco := 7242]
banco[var_ocup ==504, isco := 8283]
banco[var_ocup ==505, isco := 7243]
banco[var_ocup ==506, isco := 7245]
banco[var_ocup ==507, isco := 7244]
banco[var_ocup ==508, isco := 7245]
banco[var_ocup ==509, isco := 8161]
banco[var_ocup ==51, isco := 3152]
banco[var_ocup ==511, isco := 7123]
banco[var_ocup ==512, isco := 7122]
banco[var_ocup ==513, isco := 7122]
banco[var_ocup ==514, isco := 7141]
banco[var_ocup ==515, isco := 7133]
banco[var_ocup ==516, isco := 7132]
banco[var_ocup ==517, isco := 7136]
banco[var_ocup ==518, isco := 7135]
banco[var_ocup ==519, isco := 7122]
banco[var_ocup ==52, isco := 4121]
banco[var_ocup ==520, isco := 7132]
banco[var_ocup ==521, isco := 8332]
banco[var_ocup ==53, isco := 4121]
banco[var_ocup ==531, isco := 8271]
banco[var_ocup ==532, isco := 7411]
banco[var_ocup ==533, isco := 7411]
banco[var_ocup ==534, isco := 8272]
banco[var_ocup ==535, isco := 7412]
banco[var_ocup ==536, isco := 7412]
banco[var_ocup ==537, isco := 7412]
banco[var_ocup ==538, isco := 8273]
banco[var_ocup ==539, isco := 8276]
banco[var_ocup ==54, isco := 4131]
banco[var_ocup ==540, isco := 8278]
banco[var_ocup ==541, isco := 8277]
banco[var_ocup ==542, isco := 8271]
banco[var_ocup ==543, isco := 8277]
banco[var_ocup ==544, isco := 8275]
banco[var_ocup ==545, isco := 8273]
banco[var_ocup ==55, isco := 4131]
banco[var_ocup ==551, isco := 7341]
banco[var_ocup ==552, isco := 7341]
banco[var_ocup ==553, isco := 7343]
banco[var_ocup ==554, isco := 8251]
banco[var_ocup ==555, isco := 7343]
banco[var_ocup ==556, isco := 7345]
banco[var_ocup ==557, isco := 7346]
banco[var_ocup ==56, isco := 4111]
banco[var_ocup ==561, isco := 7322]
banco[var_ocup ==562, isco := 7321]
banco[var_ocup ==563, isco := 7324]
banco[var_ocup ==564, isco := 7321]
banco[var_ocup ==57, isco := 4112]
banco[var_ocup ==571, isco := 3152]
banco[var_ocup ==572, isco := 7313]
banco[var_ocup ==573, isco := 7313]
banco[var_ocup ==574, isco := 8231]
banco[var_ocup ==575, isco := 8231]
banco[var_ocup ==576, isco := 8159]
banco[var_ocup ==577, isco := 7424]
banco[var_ocup ==578, isco := 7113]
banco[var_ocup ==579, isco := 7416]
banco[var_ocup ==58, isco := 4113]
banco[var_ocup ==580, isco := 7416]
banco[var_ocup ==581, isco := 7141]
banco[var_ocup ==582, isco := 8334]
banco[var_ocup ==583, isco := 8290]
banco[var_ocup ==584, isco := 9322]
banco[var_ocup ==585, isco := 8253]
banco[var_ocup ==586, isco := 8231]
banco[var_ocup ==587, isco := 8212]
banco[var_ocup ==588, isco := 3152]
banco[var_ocup ==589, isco := 8290]
banco[var_ocup ==59, isco := 4115]
banco[var_ocup ==6, isco := 1221]
banco[var_ocup ==60, isco := 4121]
banco[var_ocup ==601, isco := 1314]
banco[var_ocup ==602, isco := 5220]
banco[var_ocup ==603, isco := 4211]
banco[var_ocup ==604, isco := 9333]
banco[var_ocup ==605, isco := 5220]
banco[var_ocup ==61, isco := 4141]
banco[var_ocup ==611, isco := 9111]
banco[var_ocup ==612, isco := 9111]
banco[var_ocup ==613, isco := 9111]
banco[var_ocup ==614, isco := 9111]
banco[var_ocup ==615, isco := 9111]
banco[var_ocup ==616, isco := 9153]
banco[var_ocup ==617, isco := 9112]
banco[var_ocup ==62, isco := 2431]
banco[var_ocup ==621, isco := 9112]
banco[var_ocup ==63, isco := 4222]
banco[var_ocup ==631, isco := 3415]
banco[var_ocup ==632, isco := 3415]
banco[var_ocup ==633, isco := 3429]
banco[var_ocup ==64, isco := 4190]
banco[var_ocup ==641, isco := 3411]
banco[var_ocup ==642, isco := 3413]
banco[var_ocup ==643, isco := 3411]
banco[var_ocup ==644, isco := 3417]
banco[var_ocup ==645, isco := 3419]
banco[var_ocup ==646, isco := 3416]
banco[var_ocup ==7, isco := 1222]
banco[var_ocup ==711, isco := 3143]
banco[var_ocup ==712, isco := 5111]
banco[var_ocup ==721, isco := 3142]
banco[var_ocup ==722, isco := 3142]
banco[var_ocup ==723, isco := 8162]
banco[var_ocup ==724, isco := 8162]
banco[var_ocup ==725, isco := 8340]
banco[var_ocup ==726, isco := 8340]
banco[var_ocup ==727, isco := 8340]
banco[var_ocup ==731, isco := 8333]
banco[var_ocup ==732, isco := 9333]
banco[var_ocup ==741, isco := 4133]
banco[var_ocup ==742, isco := 8311]
banco[var_ocup ==743, isco := 8311]
banco[var_ocup ==744, isco := 8162]
banco[var_ocup ==745, isco := 8312]
banco[var_ocup ==746, isco := 8312]
banco[var_ocup ==751, isco := 8322]
banco[var_ocup ==752, isco := 5112]
banco[var_ocup ==753, isco := 9332]
banco[var_ocup ==761, isco := 4133]
banco[var_ocup ==762, isco := 9312]
banco[var_ocup ==771, isco := 4142]
banco[var_ocup ==772, isco := 4142]
banco[var_ocup ==773, isco := 3139]
banco[var_ocup ==774, isco := 4223]
banco[var_ocup ==775, isco := 4142]
banco[var_ocup ==8, isco := 1222]
banco[var_ocup ==801, isco := 9131]
banco[var_ocup ==802, isco := 5131]
banco[var_ocup ==803, isco := 5122]
banco[var_ocup ==804, isco := 9131]
banco[var_ocup ==805, isco := 9131]
banco[var_ocup ==806, isco := 5121]
banco[var_ocup ==807, isco := 9131]
banco[var_ocup ==808, isco := 9131]
banco[var_ocup ==811, isco := 1315]
banco[var_ocup ==812, isco := 9132]
banco[var_ocup ==813, isco := 5122]
banco[var_ocup ==814, isco := 5123]
banco[var_ocup ==815, isco := 5123]
banco[var_ocup ==816, isco := 5121]
banco[var_ocup ==817, isco := 5123]
banco[var_ocup ==818, isco := 5123]
banco[var_ocup ==821, isco := 5141]
banco[var_ocup ==822, isco := 5141]
banco[var_ocup ==823, isco := 5141]
banco[var_ocup ==824, isco := 5141]
banco[var_ocup ==825, isco := 9131]
banco[var_ocup ==826, isco := 9120]
banco[var_ocup ==831, isco := 3475]
banco[var_ocup ==832, isco := 3475]
banco[var_ocup ==833, isco := 3475]
banco[var_ocup ==834, isco := 3475]
banco[var_ocup ==841, isco := 9141]
banco[var_ocup ==842, isco := 9151]
banco[var_ocup ==843, isco := 9152]
banco[var_ocup ==844, isco := 9141]
banco[var_ocup ==845, isco := 9151]
banco[var_ocup ==851, isco := 6111]
banco[var_ocup ==852, isco := 1314]
banco[var_ocup ==861, isco := 110]
banco[var_ocup ==862, isco := 110]
banco[var_ocup ==863, isco := 110]
banco[var_ocup ==864, isco := 3450]
banco[var_ocup ==865, isco := 3450]
banco[var_ocup ==866, isco := 5162]
banco[var_ocup ==867, isco := 5163]
banco[var_ocup ==868, isco := 3450]
banco[var_ocup ==869, isco := 5169]
banco[var_ocup ==9, isco := 1223]
banco[var_ocup ==911, isco := 9321]
banco[var_ocup ==912, isco := 9153]
banco[var_ocup ==913, isco := 7136]
banco[var_ocup ==914, isco := 3213]
banco[var_ocup ==915, isco := 7143]
banco[var_ocup ==916, isco := 9120]
banco[var_ocup ==917, isco := 3222]
banco[var_ocup ==918, isco := 3444]
banco[var_ocup ==919, isco := 6113]
banco[var_ocup ==920, isco := 9161]
banco[var_ocup ==921, isco := 7233]
banco[var_ocup ==922, isco := 8163]
banco[var_ocup ==923, isco := 8290]
banco[var_ocup ==924, isco := 9333]
banco[var_ocup ==925, isco := 9312]
banco[var_ocup ==926, isco := 5131]
banco[var_ocup ==927, isco := 9333]
banco[var_ocup ==928, isco := NA]
banco[isco ==6121 & PosicaoOcup == 1, isco :=9211]
banco[isco ==6122 & PosicaoOcup == 1, isco :=9211]
banco[isco ==6141 & PosicaoOcup == 1, isco :=9212]
banco[isco ==6142 & PosicaoOcup == 1, isco :=9212]
banco[isco ==6151 & PosicaoOcup == 1, isco :=9213]
banco[isco ==6152 & PosicaoOcup == 1, isco :=9213]
banco[isco ==6153 & PosicaoOcup == 1, isco :=9213]
banco[isco ==6154 & PosicaoOcup == 1, isco :=9213]
banco[isco == 2131 & trtot < 5 , isco :=3121]
banco[isco==3431 & trtot >=5, isco :=2419]
banco[var_ocup == 601 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco :=1314]
banco[var_ocup == 601, isco :=5220]
banco[var_ocup == 811 & ((PosicaoOcup == 3 & isic == 70) | PosicaoOcup == 2), isco :=1315]
banco[var_ocup == 811, isco :=5123]
banco[var_ocup == 825 & PosicaoOcup==1 & isic != 120 & trtot >=1, isco == 5139]
banco[var_ocup == 852 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco :=1314]
banco[var_ocup == 852, isco :=5123]
banco[var_ocup == 291 & trtot < 4, isco :=4141]
banco[var_ocup == 322 & trtot >= 2 & PosicaoOcup == 1, isco:=3142]
banco[var_ocup == 470 & PosicaoOcup==1 & isic == 30, isco :=8263]
banco[var_ocup == 924 & isic == 10, isco :=9211]
banco[var_ocup == 927 & isic == 10 & trtot <=1 , isco :=9211]
banco[var_ocup == 927 & isic == 100 , isco :=5149]
banco[var_ocup == 927 & isic == 20 & trtot <=1 , isco :=9311]
banco[var_ocup == 927 & isic == 50 , isco :=7122]
banco[var_ocup == 928 & isic == 10 & trtot <= 1, isco :=9211]
banco[var_ocup == 928 & isic == 100 , isco :=5149]
banco[var_ocup == 928 & isic == 20 & trtot <= 1, isco :=9311]
banco[var_ocup == 928 & isic == 50 , isco :=7122]
banco[var_ocup==919 & isic!=10, isco :=9141]
banco[var_ocup == 154 & trtot < 6, isco :=3241]
banco[var_ocup==1 & PosicaoOcup==2, isco :=1311]
banco[var_ocup==2 & PosicaoOcup==2, isco :=1311]
banco[var_ocup==3 & PosicaoOcup==2, isco :=1311]
banco[var_ocup==4 & PosicaoOcup==2, isco :=1311]
banco[var_ocup==5 & PosicaoOcup==2, isco :=1311]
banco[var_ocup== 10 & PosicaoOcup==1, isco :=5220]
}
if((tipo == "censo" & ano == 2000) | (tipo == "pnad" & (ano >= 2002 & ano <= 2013))){
banco[var_ocup == 5198, isco :=NA]
banco[var_ocup == 9999, isco :=NA]
banco[var_ocup == 9998, isco :=NA]
banco[var_ocup == 9988, isco :=NA]
banco[var_ocup == 0, isco :=NA]
banco[var_ocup == 100, isco :=110]
banco[var_ocup == 200, isco :=110]
banco[var_ocup == 300, isco :=110]
banco[var_ocup == 401, isco :=110]
banco[var_ocup == 402, isco :=110]
banco[var_ocup == 403, isco :=110]
banco[var_ocup == 411, isco :=110]
banco[var_ocup == 412, isco :=110]
banco[var_ocup == 413, isco :=110]
banco[var_ocup == 501, isco :=110]
banco[var_ocup == 502, isco :=110]
banco[var_ocup == 503, isco :=110]
banco[var_ocup == 511, isco :=110]
banco[var_ocup == 512, isco :=110]
banco[var_ocup == 513, isco :=110]
banco[var_ocup == 5171, isco :=110]
banco[var_ocup == 1111, isco :=1110]
banco[var_ocup == 1113, isco :=1110]
banco[var_ocup == 1130, isco :=1110]
banco[var_ocup == 1112, isco :=1120]
banco[var_ocup == 1122, isco :=1120]
banco[var_ocup == 1123, isco :=1120]
banco[var_ocup == 1140, isco :=1143]
banco[var_ocup == 1210, isco :=1210]
banco[var_ocup == 1219, isco :=1210]
banco[var_ocup == 1220, isco :=1229]
banco[var_ocup == 1230, isco :=1229]
banco[var_ocup == 1310, isco :=1229]
banco[var_ocup == 1320, isco :=1229]
banco[var_ocup == 2131, isco :=2111]
banco[var_ocup == 2133, isco :=2112]
banco[var_ocup == 2012, isco :=2112]
banco[var_ocup == 2132, isco :=2113]
banco[var_ocup == 2134, isco :=2114]
banco[var_ocup == 2111, isco :=2121]
banco[var_ocup == 2112, isco :=2122]
banco[var_ocup == 2121, isco :=2131]
banco[var_ocup == 2122, isco :=2131]
banco[var_ocup == 2123, isco :=2131]
banco[var_ocup == 2124, isco :=2131]
banco[var_ocup == 2125, isco :=2131]
banco[var_ocup == 2141, isco :=2141]
banco[var_ocup == 2142, isco :=2142]
banco[var_ocup == 2021, isco :=2143]
banco[var_ocup == 2143, isco :=2143]
banco[var_ocup == 2144, isco :=2145]
banco[var_ocup == 2145, isco :=2146]
banco[var_ocup == 2140, isco :=2147]
banco[var_ocup == 2146, isco :=2147]
banco[var_ocup == 2147, isco :=2147]
banco[var_ocup == 2148, isco :=2148]
banco[var_ocup == 2149, isco :=2149]
banco[var_ocup == 2011, isco :=2211]
banco[var_ocup == 2211, isco :=2211]
banco[var_ocup == 2221, isco :=2213]
banco[var_ocup == 2231, isco :=2221]
banco[var_ocup == 2232, isco :=2222]
banco[var_ocup == 2233, isco :=2223]
banco[var_ocup == 2234, isco :=2224]
banco[var_ocup == 2237, isco :=2229]
banco[var_ocup == 2235, isco :=2230]
banco[var_ocup == 2340, isco :=2310]
banco[var_ocup == 2321, isco :=2320]
banco[var_ocup == 2391, isco :=2320]
banco[var_ocup == 2312, isco :=2331]
banco[var_ocup == 2313, isco :=2331]
banco[var_ocup == 3312, isco :=2331]
banco[var_ocup == 3321, isco :=2331]
banco[var_ocup == 2311, isco :=2332]
banco[var_ocup == 3311, isco :=2332]
banco[var_ocup == 2394, isco :=2351]
banco[var_ocup == 2330, isco :=2359]
banco[var_ocup == 2392, isco :=2359]
banco[var_ocup == 3313, isco :=2359]
banco[var_ocup == 3322, isco :=2359]
banco[var_ocup == 3331, isco :=2359]
banco[var_ocup == 2522, isco :=2411]
banco[var_ocup == 2531, isco :=2419]
banco[var_ocup == 2410, isco :=2421]
banco[var_ocup == 2421, isco :=2422]
banco[var_ocup == 2412, isco :=2421]
banco[var_ocup == 2419, isco :=2421]
banco[var_ocup == 2422, isco :=2421]
banco[var_ocup == 2613, isco :=2431]
banco[var_ocup == 3712, isco :=2431]
banco[var_ocup == 2512, isco :=2441]
banco[var_ocup == 2511, isco :=2442]
banco[var_ocup == 2513, isco :=2443]
banco[var_ocup == 2514, isco :=2443]
banco[var_ocup == 2614, isco :=2444]
banco[var_ocup == 2515, isco :=2445]
banco[var_ocup == 2516, isco :=2446]
banco[var_ocup == 2611, isco :=2451]
banco[var_ocup == 2612, isco :=2451]
banco[var_ocup == 2615, isco :=2451]
banco[var_ocup == 2616, isco :=2451]
banco[var_ocup == 2625, isco :=2452]
banco[var_ocup == 2624, isco :=2453]
banco[var_ocup == 3762, isco :=2453]
banco[var_ocup == 2621, isco :=2455]
banco[var_ocup == 2622, isco :=2455]
banco[var_ocup == 2623, isco :=2455]
banco[var_ocup == 3761, isco :=2455]
banco[var_ocup == 3763, isco :=2455]
banco[var_ocup == 3764, isco :=2455]
banco[var_ocup == 2631, isco :=2460]
banco[var_ocup == 3011, isco :=3111]
banco[var_ocup == 3111, isco :=3111]
banco[var_ocup == 3112, isco :=3111]
banco[var_ocup == 3113, isco :=3111]
banco[var_ocup == 3114, isco :=3111]
banco[var_ocup == 3116, isco :=3111]
banco[var_ocup == 3117, isco :=3111]
banco[var_ocup == 3250, isco :=3111]
banco[var_ocup == 3252, isco :=3111]
banco[var_ocup == 8202, isco :=3111]
banco[var_ocup == 8401, isco :=3111]
banco[var_ocup == 3121, isco :=3112]
banco[var_ocup == 3122, isco :=3112]
banco[var_ocup == 3123, isco :=3112]
banco[var_ocup == 3131, isco :=3113]
banco[var_ocup == 3001, isco :=3114]
banco[var_ocup == 3003, isco :=3114]
banco[var_ocup == 3134, isco :=3114]
banco[var_ocup == 3135, isco :=3114]
banco[var_ocup == 7301, isco :=3114]
banco[var_ocup == 3136, isco :=3115]
banco[var_ocup == 3141, isco :=3115]
banco[var_ocup == 7201, isco :=3115]
banco[var_ocup == 7202, isco :=3115]
banco[var_ocup == 8201, isco :=3115]
banco[var_ocup == 8181, isco :=3116]
banco[var_ocup == 3146, isco :=3117]
banco[var_ocup == 3147, isco :=3117]
banco[var_ocup == 3161, isco :=3117]
banco[var_ocup == 3162, isco :=3117]
banco[var_ocup == 3163, isco :=3117]
banco[var_ocup == 7101, isco :=3117]
banco[var_ocup == 3189, isco :=3118]
banco[var_ocup == 3713, isco :=3118]
banco[var_ocup == 7606, isco :=3118]
banco[var_ocup == 3421, isco :=3119]
banco[var_ocup == 3911, isco :=3119]
banco[var_ocup == 7610, isco :=3119]
banco[var_ocup == 3171, isco :=3122]
banco[var_ocup == 3172, isco :=3122]
banco[var_ocup == 3721, isco :=3131]
banco[var_ocup == 3722, isco :=3131]
banco[var_ocup == 3731, isco :=3131]
banco[var_ocup == 3732, isco :=3131]
banco[var_ocup == 3741, isco :=3131]
banco[var_ocup == 3742, isco :=3131]
banco[var_ocup == 3743, isco :=3131]
banco[var_ocup == 3723, isco :=3132]
banco[var_ocup == 3241, isco :=3133]
banco[var_ocup == 2152, isco :=3141]
banco[var_ocup == 3426, isco :=3141]
banco[var_ocup == 2151, isco :=3142]
banco[var_ocup == 3412, isco :=3142]
banco[var_ocup == 3413, isco :=3142]
banco[var_ocup == 2153, isco :=3143]
banco[var_ocup == 3411, isco :=3143]
banco[var_ocup == 3425, isco :=3144]
banco[var_ocup == 3516, isco :=3152]
banco[var_ocup == 3523, isco :=3152]
banco[var_ocup == 3524, isco :=3152]
banco[var_ocup == 3525, isco :=3152]
banco[var_ocup == 3912, isco :=3152]
banco[var_ocup == 3012, isco :=3211]
banco[var_ocup == 3201, isco :=3211]
banco[var_ocup == 3242, isco :=3211]
banco[var_ocup == 3253, isco :=3211]
banco[var_ocup == 3522, isco :=5139]
banco[var_ocup == 5152, isco :=3211]
banco[var_ocup == 3115, isco :=3212]
banco[var_ocup == 3210, isco :=3212]
banco[var_ocup == 3211, isco :=3212]
banco[var_ocup == 3212, isco :=3212]
banco[var_ocup == 3213, isco :=3212]
banco[var_ocup == 3214, isco :=3212]
banco[var_ocup == 3223, isco :=3224]
banco[var_ocup == 3224, isco :=3225]
banco[var_ocup == 2236, isco :=3226]
banco[var_ocup == 3221, isco :=3226]
banco[var_ocup == 3225, isco :=3226]
banco[var_ocup == 3231, isco :=3227]
banco[var_ocup == 3232, isco :=3227]
banco[var_ocup == 3251, isco :=3228]
banco[var_ocup == 3222, isco :=3231]
banco[var_ocup == 5151, isco :=3232]
banco[var_ocup == 3341, isco :=3340]
banco[var_ocup == 3517, isco :=3411]
banco[var_ocup == 3531, isco :=3411]
banco[var_ocup == 3545, isco :=3411]
banco[var_ocup == 3547, isco :=3411]
banco[var_ocup == 3546, isco :=3413]
banco[var_ocup == 3541, isco :=3415]
banco[var_ocup == 3543, isco :=3415]
banco[var_ocup == 3548, isco :=3415]
banco[var_ocup == 3542, isco :=3416]
banco[var_ocup == 3544, isco :=3417]
banco[var_ocup == 3422, isco :=3422]
banco[var_ocup == 2524, isco :=2412]
banco[var_ocup == 2521, isco :=2419]
banco[var_ocup == 2523, isco :=3431]
banco[var_ocup == 2525, isco :=2419]
banco[var_ocup == 3513, isco :=3431]
banco[var_ocup == 3514, isco :=3432]
banco[var_ocup == 3511, isco :=3433]
banco[var_ocup == 3512, isco :=3434]
banco[var_ocup == 3711, isco :=2432]
banco[var_ocup == 3515, isco :=3449]
banco[var_ocup == 2423, isco :=3450]
banco[var_ocup == 3518, isco :=3450]
banco[var_ocup == 2627, isco :=3471]
banco[var_ocup == 3191, isco :=3471]
banco[var_ocup == 3192, isco :=3471]
banco[var_ocup == 3751, isco :=3471]
banco[var_ocup == 2617, isco :=3472]
banco[var_ocup == 3771, isco :=3475]
banco[var_ocup == 3772, isco :=3475]
banco[var_ocup == 3773, isco :=3475]
banco[var_ocup == 4122, isco :=4111]
banco[var_ocup == 4121, isco :=4115]
banco[var_ocup == 4201, isco :=3439]
banco[var_ocup == 3532, isco :=4121]
banco[var_ocup == 4101, isco :=3439]
banco[var_ocup == 4102, isco :=3439]
banco[var_ocup == 4110, isco :=4190]
banco[var_ocup == 4131, isco :=4121]
banco[var_ocup == 4132, isco :=4121]
banco[var_ocup == 4212, isco :=4121]
banco[var_ocup == 4241, isco :=4122]
banco[var_ocup == 4141, isco :=4131]
banco[var_ocup == 4142, isco :=4132]
banco[var_ocup == 3423, isco :=4133]
banco[var_ocup == 4231, isco :=3444]
banco[var_ocup == 4151, isco :=4141]
banco[var_ocup == 4152, isco :=4142]
banco[var_ocup == 4211, isco :=4211]
banco[var_ocup == 4213, isco :=4213]
banco[var_ocup == 4214, isco :=4215]
banco[var_ocup == 4221, isco :=4222]
banco[var_ocup == 4222, isco :=4223]
banco[var_ocup == 4223, isco :=4223]
banco[var_ocup == 5111, isco :=5111]
banco[var_ocup == 3424, isco :=5112]
banco[var_ocup == 5112, isco :=5112]
banco[var_ocup == 5114, isco :=5113]
banco[var_ocup == 5101, isco :=3439]
banco[var_ocup == 5131, isco :=5121]
banco[var_ocup == 5132, isco :=5122]
banco[var_ocup == 5134, isco :=5123]
banco[var_ocup == 5162, isco :=5133]
banco[var_ocup == 5102, isco :=5139]
banco[var_ocup == 5161, isco :=5141]
banco[var_ocup == 3281, isco :=5143]
banco[var_ocup == 5165, isco :=5143]
banco[var_ocup == 5166, isco :=5143]
banco[var_ocup == 5199, isco :=5149]
banco[var_ocup == 5167, isco :=5151]
banco[var_ocup == 5172, isco :=5162]
banco[var_ocup == 5173, isco :=5163]
banco[var_ocup == 5103, isco :=5169]
banco[var_ocup == 3765, isco :=5210]
banco[var_ocup == 5201, isco :=5220]
banco[var_ocup == 5211, isco :=5220]
banco[var_ocup == 6110, isco :=6111]
banco[var_ocup == 6129, isco :=6111]
banco[var_ocup == 6201, isco :=3213]
banco[var_ocup == 6139, isco :=6121]
banco[var_ocup == 6301, isco :=6141]
banco[var_ocup == 6329, isco :=6141]
banco[var_ocup == 6319, isco :=6154]
banco[var_ocup == 7111, isco :=7111]
banco[var_ocup == 7122, isco :=7113]
banco[var_ocup == 7152, isco :=7122]
banco[var_ocup == 7170, isco :=7122]
banco[var_ocup == 7153, isco :=7123]
banco[var_ocup == 7161, isco :=7123]
banco[var_ocup == 7155, isco :=7124]
banco[var_ocup == 7771, isco :=7124]
banco[var_ocup == 7772, isco :=7124]
banco[var_ocup == 7102, isco :=7129]
banco[var_ocup == 7162, isco :=7131]
banco[var_ocup == 7165, isco :=7132]
banco[var_ocup == 7164, isco :=7133]
banco[var_ocup == 7157, isco :=7134]
banco[var_ocup == 7163, isco :=7135]
banco[var_ocup == 7241, isco :=7136]
banco[var_ocup == 7156, isco :=7137]
banco[var_ocup == 7166, isco :=7141]
banco[var_ocup == 7233, isco :=7141]
banco[var_ocup == 9913, isco :=7141]
banco[var_ocup == 7223, isco :=7211]
banco[var_ocup == 7243, isco :=7212]
banco[var_ocup == 7244, isco :=7213]
banco[var_ocup == 7242, isco :=7214]
banco[var_ocup == 7246, isco :=7215]
banco[var_ocup == 7321, isco :=7215]
banco[var_ocup == 7817, isco :=7216]
banco[var_ocup == 7221, isco :=7221]
banco[var_ocup == 7211, isco :=7222]
banco[var_ocup == 3142, isco :=7223]
banco[var_ocup == 3144, isco :=7223]
banco[var_ocup == 7212, isco :=7223]
banco[var_ocup == 7250, isco :=7223]
banco[var_ocup == 7257, isco :=7223]
banco[var_ocup == 7214, isco :=7224]
banco[var_ocup == 3143, isco :=7231]
banco[var_ocup == 9102, isco :=7231]
banco[var_ocup == 9144, isco :=7231]
banco[var_ocup == 9193, isco :=7231]
banco[var_ocup == 9502, isco :=7231]
banco[var_ocup == 9141, isco :=7232]
banco[var_ocup == 9142, isco :=7232]
banco[var_ocup == 9101, isco :=7233]
banco[var_ocup == 9109, isco :=7233]
banco[var_ocup == 9111, isco :=7233]
banco[var_ocup == 9112, isco :=7233]
banco[var_ocup == 9113, isco :=7233]
banco[var_ocup == 9131, isco :=7233]
banco[var_ocup == 9143, isco :=7233]
banco[var_ocup == 9191, isco :=7233]
banco[var_ocup == 9192, isco :=7241]
banco[var_ocup == 9501, isco :=7241]
banco[var_ocup == 9503, isco :=7241]
banco[var_ocup == 9541, isco :=7241]
banco[var_ocup == 3132, isco :=7242]
banco[var_ocup == 9511, isco :=7242]
banco[var_ocup == 9542, isco :=7242]
banco[var_ocup == 5231, isco :=7243]
banco[var_ocup == 9531, isco :=7243]
banco[var_ocup == 9543, isco :=7243]
banco[var_ocup == 9912, isco :=7243]
banco[var_ocup == 7313, isco :=7244]
banco[var_ocup == 9513, isco :=7245]
banco[var_ocup == 7401, isco :=7311]
banco[var_ocup == 7411, isco :=7311]
banco[var_ocup == 9151, isco :=7311]
banco[var_ocup == 9153, isco :=7311]
banco[var_ocup == 7421, isco :=7312]
banco[var_ocup == 9152, isco :=7312]
banco[var_ocup == 7501, isco :=7313]
banco[var_ocup == 7519, isco :=7313]
banco[var_ocup == 7523, isco :=7321]
banco[var_ocup == 8281, isco :=7321]
banco[var_ocup == 7502, isco :=7322]
banco[var_ocup == 7521, isco :=7322]
banco[var_ocup == 7522, isco :=7322]
banco[var_ocup == 7524, isco :=7324]
banco[var_ocup == 7620, isco :=7441]
banco[var_ocup == 7651, isco :=7441]
banco[var_ocup == 7654, isco :=7435]
banco[var_ocup == 7686, isco :=7341]
banco[var_ocup == 7661, isco :=7343]
banco[var_ocup == 7664, isco :=7344]
banco[var_ocup == 9154, isco :=7344]
banco[var_ocup == 7663, isco :=7345]
banco[var_ocup == 7687, isco :=7345]
banco[var_ocup == 8485, isco :=7411]
banco[var_ocup == 8493, isco :=7412]
banco[var_ocup == 8484, isco :=7415]
banco[var_ocup == 8421, isco :=7416]
banco[var_ocup == 8423, isco :=7416]
banco[var_ocup == 8429, isco :=7416]
banco[var_ocup == 7721, isco :=7421]
banco[var_ocup == 7701, isco :=7422]
banco[var_ocup == 7711, isco :=7422]
banco[var_ocup == 7741, isco :=7422]
banco[var_ocup == 7751, isco :=7422]
banco[var_ocup == 7733, isco :=7423]
banco[var_ocup == 7764, isco :=7424]
banco[var_ocup == 7611, isco :=7431]
banco[var_ocup == 7630, isco :=7432]
banco[var_ocup == 7681, isco :=7432]
banco[var_ocup == 7618, isco :=7433]
banco[var_ocup == 7650, isco :=7433]
banco[var_ocup == 7631, isco :=7435]
banco[var_ocup == 7633, isco :=8263]
banco[var_ocup == 7652, isco :=7436]
banco[var_ocup == 7682, isco :=7436]
banco[var_ocup == 7621, isco :=7441]
banco[var_ocup == 7622, isco :=7441]
banco[var_ocup == 7623, isco :=7441]
banco[var_ocup == 7641, isco :=7442]
banco[var_ocup == 7643, isco :=7442]
banco[var_ocup == 7683, isco :=7442]
banco[var_ocup == 7112, isco :=8111]
banco[var_ocup == 7121, isco :=8112]
banco[var_ocup == 7113, isco :=8113]
banco[var_ocup == 7213, isco :=8113]
banco[var_ocup == 7215, isco :=8113]
banco[var_ocup == 8212, isco :=8121]
banco[var_ocup == 7222, isco :=8122]
banco[var_ocup == 7231, isco :=8122]
banco[var_ocup == 8213, isco :=8122]
banco[var_ocup == 8221, isco :=8122]
banco[var_ocup == 7224, isco :=8124]
banco[var_ocup == 7245, isco :=8124]
banco[var_ocup == 8231, isco :=8139]
banco[var_ocup == 8232, isco :=8139]
banco[var_ocup == 7731, isco :=8141]
banco[var_ocup == 7732, isco :=8141]
banco[var_ocup == 8311, isco :=8142]
banco[var_ocup == 8321, isco :=8143]
banco[var_ocup == 8110, isco :=8151]
banco[var_ocup == 8111, isco :=8152]
banco[var_ocup == 8112, isco :=8152]
banco[var_ocup == 8116, isco :=8152]
banco[var_ocup == 8211, isco :=8152]
banco[var_ocup == 8113, isco :=8153]
banco[var_ocup == 8114, isco :=8154]
banco[var_ocup == 8115, isco :=8155]
banco[var_ocup == 8101, isco :=8159]
banco[var_ocup == 8103, isco :=8159]
banco[var_ocup == 8131, isco :=8159]
banco[var_ocup == 8601, isco :=8161]
banco[var_ocup == 8611, isco :=8161]
banco[var_ocup == 8612, isco :=8161]
banco[var_ocup == 8621, isco :=8162]
banco[var_ocup == 8622, isco :=8163]
banco[var_ocup == 8623, isco :=8163]
banco[var_ocup == 8624, isco :=8163]
banco[var_ocup == 8625, isco :=8163]
banco[var_ocup == 7811, isco :=8172]
banco[var_ocup == 7813, isco :=8172]
banco[var_ocup == 7154, isco :=8212]
banco[var_ocup == 8233, isco :=8212]
banco[var_ocup == 8118, isco :=8221]
banco[var_ocup == 8121, isco :=8222]
banco[var_ocup == 7232, isco :=8223]
banco[var_ocup == 8214, isco :=8223]
banco[var_ocup == 8117, isco :=8231]
banco[var_ocup == 9921, isco :=8231]
banco[var_ocup == 8102, isco :=8232]
banco[var_ocup == 7734, isco :=8240]
banco[var_ocup == 7735, isco :=8240]
banco[var_ocup == 7662, isco :=8251]
banco[var_ocup == 7660, isco :=8252]
banco[var_ocup == 8301, isco :=8253]
banco[var_ocup == 8339, isco :=8253]
banco[var_ocup == 7612, isco :=8261]
banco[var_ocup == 7613, isco :=8262]
banco[var_ocup == 7632, isco :=8263]
banco[var_ocup == 7614, isco :=8264]
banco[var_ocup == 7640, isco :=8266]
banco[var_ocup == 7642, isco :=8266]
banco[var_ocup == 7601, isco :=8269]
banco[var_ocup == 7602, isco :=8269]
banco[var_ocup == 7603, isco :=8269]
banco[var_ocup == 7604, isco :=8269]
banco[var_ocup == 7605, isco :=8269]
banco[var_ocup == 7653, isco :=8269]
banco[var_ocup == 8491, isco :=8271]
banco[var_ocup == 8492, isco :=8272]
banco[var_ocup == 8411, isco :=8273]
banco[var_ocup == 8412, isco :=8276]
banco[var_ocup == 8413, isco :=8276]
banco[var_ocup == 8416, isco :=8277]
banco[var_ocup == 8417, isco :=8278]
banco[var_ocup == 7251, isco :=8281]
banco[var_ocup == 7252, isco :=8281]
banco[var_ocup == 7253, isco :=8281]
banco[var_ocup == 7254, isco :=8281]
banco[var_ocup == 7311, isco :=8283]
banco[var_ocup == 7312, isco :=8283]
banco[var_ocup == 7255, isco :=8290]
banco[var_ocup == 7256, isco :=8290]
banco[var_ocup == 7826, isco :=8311]
banco[var_ocup == 7831, isco :=8312]
banco[var_ocup == 7820, isco :=8322]
banco[var_ocup == 7823, isco :=8322]
banco[var_ocup == 7824, isco :=8322]
banco[var_ocup == 7825, isco :=8324]
banco[var_ocup == 6410, isco :=8331]
banco[var_ocup == 6420, isco :=8331]
banco[var_ocup == 6430, isco :=8331]
banco[var_ocup == 7151, isco :=8332]
banco[var_ocup == 7821, isco :=8333]
banco[var_ocup == 7822, isco :=8333]
banco[var_ocup == 7827, isco :=8340]
banco[var_ocup == 5242, isco :=9111]
banco[var_ocup == 5243, isco :=9111]
banco[var_ocup == 5241, isco :=9113]
banco[var_ocup == 5121, isco :=9131]
banco[var_ocup == 5133, isco :=9132]
banco[var_ocup == 5141, isco :=9132]
banco[var_ocup == 5169, isco :=9133]
banco[var_ocup == 5142, isco :=9141]
banco[var_ocup == 9914, isco :=9141]
banco[var_ocup == 4123, isco :=9151]
banco[var_ocup == 5191, isco :=9151]
banco[var_ocup == 5174, isco :=9152]
banco[var_ocup == 5192, isco :=9161]
banco[var_ocup == 6210, isco :=9211]
banco[var_ocup == 6229, isco :=9211]
banco[var_ocup == 6239, isco :=9211]
banco[var_ocup == 7114, isco :=9311]
banco[var_ocup == 9911, isco :=9312]
banco[var_ocup == 9922, isco :=9312]
banco[var_ocup == 7842, isco :=9321]
banco[var_ocup == 8711, isco :=9321]
banco[var_ocup == 7801, isco :=9322]
banco[var_ocup == 7841, isco :=9322]
banco[var_ocup == 7828, isco :=9332]
banco[var_ocup == 5221, isco :=9333]
banco[var_ocup == 7832, isco :=9333]
banco[var_ocup==6301 & trtot >= 2, isco==3213]
banco[var_ocup==6139 & PosicaoOcup == 2, isco==1311]
banco[var_ocup==6129 & PosicaoOcup == 2, isco==1311]
banco[var_ocup==6110 & PosicaoOcup == 2, isco==1311]
banco[var_ocup == 9999 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 9998 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 9988 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 9914 & isic == 10, isco := 9113]
banco[var_ocup == 5142 & isic == 10, isco := 9113]
banco[var_ocup == 4231 & isic == 80, isco==4133]
banco[var_ocup == 3711 & trtot < 4, isco := 4141]
banco[var_ocup == 0 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 5211, isco := 5220]
banco[var_ocup == 5211, isco := 5220]
banco[var_ocup == 5211 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco := 1314]
banco[var_ocup == 5211 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco := 1314]
banco[var_ocup == 5134, isco := 5123]
banco[var_ocup == 5134 & ((PosicaoOcup == 3 & isic == 70) | PosicaoOcup == 2), isco := 1315]
banco[isco ==6154 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6153 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6152 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6151 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6142 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6141 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6122 & PosicaoOcup == 1, isco := 9211]
banco[isco ==6121 & PosicaoOcup == 1, isco := 9211]
banco[isco == 2131 & trtot < 5 , isco := 3121]
banco[(isco==1210|isco==1229) & isic == 10 & PosicaoOcup==0, isco := 6111]
banco[(isco==1210|isco==1229) & isic != 10 & PosicaoOcup==0, isco := 5220]
banco[(isco==1210|isco==1229) & (isic==90) & (PosicaoOcup==2 | PosicaoOcup==3), isco := 1317]
banco[(isco==1210|isco==1229) & (isic==90) & (PosicaoOcup==1), isco := 1227]
banco[(isco==1210|isco==1229) & (isic==80) & (PosicaoOcup==2 | PosicaoOcup==3), isco := 1316]
banco[(isco==1210|isco==1229) & (isic==80) & (PosicaoOcup==1), isco := 1226]
banco[(isco==1210|isco==1229) & (isic==70) & (PosicaoOcup==2 | PosicaoOcup==3), isco := 1315]
banco[(isco==1210|isco==1229) & (isic==70) & (PosicaoOcup==1), isco := 1225]
banco[(isco==1210|isco==1229) & (isic==60) & (PosicaoOcup==2 | PosicaoOcup==3), isco := 1314]
banco[(isco==1210|isco==1229) & (isic==60) & (PosicaoOcup==1), isco := 1224]
banco[(isco==1210|isco==1229) & (isic==50) & (PosicaoOcup==2 | PosicaoOcup==3), isco := 1313]
banco[(isco==1210|isco==1229) & (isic==50) & (PosicaoOcup==1), isco := 1223]
banco[(isco==1210|isco==1229) & (isic==20|isic==30|isic==40) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1312]
banco[(isco==1210|isco==1229) & (isic==20|isic==30|isic==40) & (PosicaoOcup==1), isco := 1222]
banco[(isco==1210|isco==1229) & (isic==100), isco := 1120]
}
if( tipo == "censo" & ano == 2010){
banco[var_ocup == 0, isco := NA]
banco[var_ocup == 5168, isco := NA]
banco[var_ocup == 110, isco := 110]
banco[var_ocup == 210, isco := 110]
banco[var_ocup == 299, isco := 110]
banco[var_ocup == 411, isco := 110]
banco[var_ocup == 412, isco := 110]
banco[var_ocup == 511, isco := 110]
banco[var_ocup == 512, isco := 110]
banco[var_ocup == 599, isco := 110]
banco[var_ocup == 999, isco := 110]
banco[var_ocup == 5411, isco := 110]
banco[var_ocup == 1111, isco := 1110]
banco[var_ocup == 1113, isco := 1110]
banco[var_ocup == 1112, isco := 1120]
banco[var_ocup == 1114, isco := 1143]
banco[var_ocup == 1120, isco := 1210]
banco[var_ocup == 1311, isco := 1221]
banco[var_ocup == 1312, isco := 1221]
banco[var_ocup == 1321, isco := 1222]
banco[var_ocup == 1322, isco := 1222]
banco[var_ocup == 1323, isco := 1223]
banco[var_ocup == 1420, isco := 1224]
banco[var_ocup == 1411, isco := 1225]
banco[var_ocup == 1412, isco := 1225]
banco[var_ocup == 1324, isco := 1226]
banco[var_ocup == 1330, isco := 1226]
banco[var_ocup == 1219, isco := 1229]
banco[var_ocup == 1346, isco := 1227]
banco[var_ocup == 1213, isco := 1229]
banco[var_ocup == 1341, isco := 1229]
banco[var_ocup == 1342, isco := 1229]
banco[var_ocup == 1343, isco := 1229]
banco[var_ocup == 1344, isco := 1229]
banco[var_ocup == 1345, isco := 1229]
banco[var_ocup == 1349, isco := 1229]
banco[var_ocup == 1431, isco := 1229]
banco[var_ocup == 1439, isco := 1229]
banco[var_ocup == 1211, isco := 1231]
banco[var_ocup == 1212, isco := 1232]
banco[var_ocup == 1221, isco := 1233]
banco[var_ocup == 1222, isco := 1234]
banco[var_ocup == 1223, isco := 1237]
banco[var_ocup == 2111, isco := 2111]
banco[var_ocup == 2112, isco := 2112]
banco[var_ocup == 2113, isco := 2113]
banco[var_ocup == 2114, isco := 2114]
banco[var_ocup == 2120, isco := 2121]
banco[var_ocup == 2511, isco := 2131]
banco[var_ocup == 2512, isco := 2131]
banco[var_ocup == 2513, isco := 2131]
banco[var_ocup == 2514, isco := 2131]
banco[var_ocup == 2519, isco := 2131]
banco[var_ocup == 2521, isco := 2131]
banco[var_ocup == 2522, isco := 2131]
banco[var_ocup == 2523, isco := 2131]
banco[var_ocup == 2529, isco := 2131]
banco[var_ocup == 2161, isco := 2141]
banco[var_ocup == 2162, isco := 2141]
banco[var_ocup == 2164, isco := 2141]
banco[var_ocup == 2142, isco := 2142]
banco[var_ocup == 2151, isco := 2143]
banco[var_ocup == 2152, isco := 2144]
banco[var_ocup == 2153, isco := 2144]
banco[var_ocup == 2144, isco := 2145]
banco[var_ocup == 2145, isco := 2146]
banco[var_ocup == 2146, isco := 2147]
banco[var_ocup == 2165, isco := 2148]
banco[var_ocup == 2141, isco := 2149]
banco[var_ocup == 2143, isco := 2149]
banco[var_ocup == 2149, isco := 2149]
banco[var_ocup == 2131, isco := 2211]
banco[var_ocup == 2133, isco := 2211]
banco[var_ocup == 2132, isco := 2213]
banco[var_ocup == 2211, isco := 2221]
banco[var_ocup == 2212, isco := 2221]
banco[var_ocup == 2261, isco := 2222]
banco[var_ocup == 2250, isco := 2223]
banco[var_ocup == 2262, isco := 2224]
banco[var_ocup == 2263, isco := 2229]
banco[var_ocup == 2266, isco := 2229]
banco[var_ocup == 2269, isco := 2229]
banco[var_ocup == 2221, isco := 2230]
banco[var_ocup == 2222, isco := 2230]
banco[var_ocup == 2310, isco := 2310]
banco[var_ocup == 2330, isco := 2320]
banco[var_ocup == 2341, isco := 2331]
banco[var_ocup == 2342, isco := 2332]
banco[var_ocup == 2351, isco := 2351]
banco[var_ocup == 2320, isco := 2359]
banco[var_ocup == 2352, isco := 2359]
banco[var_ocup == 2353, isco := 2359]
banco[var_ocup == 2354, isco := 2359]
banco[var_ocup == 2355, isco := 2359]
banco[var_ocup == 2356, isco := 2359]
banco[var_ocup == 2359, isco := 2359]
banco[var_ocup == 3423, isco := 2359]
banco[var_ocup == 5165, isco := 2359]
banco[var_ocup == 2411, isco := 2411]
banco[var_ocup == 2412, isco := 2411]
banco[var_ocup == 2423, isco := 2412]
banco[var_ocup == 2424, isco := 2412]
banco[var_ocup == 2413, isco := 2419]
banco[var_ocup == 2421, isco := 2419]
banco[var_ocup == 2422, isco := 2419]
banco[var_ocup == 2431, isco := 2419]
banco[var_ocup == 2432, isco := 2419]
banco[var_ocup == 2611, isco := 2421]
banco[var_ocup == 2619, isco := 2421]
banco[var_ocup == 2612, isco := 2422]
banco[var_ocup == 2621, isco := 2431]
banco[var_ocup == 2622, isco := 2432]
banco[var_ocup == 2631, isco := 2441]
banco[var_ocup == 2632, isco := 2442]
banco[var_ocup == 2633, isco := 2443]
banco[var_ocup == 2643, isco := 2444]
banco[var_ocup == 2634, isco := 2445]
banco[var_ocup == 2635, isco := 2446]
banco[var_ocup == 2641, isco := 2451]
banco[var_ocup == 2642, isco := 2451]
banco[var_ocup == 2651, isco := 2452]
banco[var_ocup == 2652, isco := 2453]
banco[var_ocup == 2653, isco := 2454]
banco[var_ocup == 2654, isco := 2455]
banco[var_ocup == 2655, isco := 2455]
banco[var_ocup == 2659, isco := 2455]
banco[var_ocup == 2636, isco := 2460]
banco[var_ocup == 3111, isco := 3111]
banco[var_ocup == 3139, isco := 3111]
banco[var_ocup == 3112, isco := 3112]
banco[var_ocup == 3113, isco := 3113]
banco[var_ocup == 3114, isco := 3114]
banco[var_ocup == 3522, isco := 3114]
banco[var_ocup == 3115, isco := 3115]
banco[var_ocup == 3116, isco := 3116]
banco[var_ocup == 3117, isco := 3117]
banco[var_ocup == 3118, isco := 3118]
banco[var_ocup == 3119, isco := 3119]
banco[var_ocup == 3511, isco := 3121]
banco[var_ocup == 3512, isco := 3121]
banco[var_ocup == 3513, isco := 3121]
banco[var_ocup == 3514, isco := 3121]
banco[var_ocup == 3431, isco := 3131]
banco[var_ocup == 3521, isco := 3131]
banco[var_ocup == 3211, isco := 3133]
banco[var_ocup == 3151, isco := 3141]
banco[var_ocup == 3152, isco := 3142]
banco[var_ocup == 3153, isco := 3143]
banco[var_ocup == 3154, isco := 3144]
banco[var_ocup == 3155, isco := 3145]
banco[var_ocup == 3257, isco := 3152]
banco[var_ocup == 7543, isco := 3152]
banco[var_ocup == 3141, isco := 3211]
banco[var_ocup == 3212, isco := 3211]
banco[var_ocup == 3142, isco := 3212]
banco[var_ocup == 3143, isco := 3212]
banco[var_ocup == 2240, isco := 3221]
banco[var_ocup == 3256, isco := 3221]
banco[var_ocup == 3252, isco := 3222]
banco[var_ocup == 2265, isco := 3223]
banco[var_ocup == 2267, isco := 3224]
banco[var_ocup == 3254, isco := 3224]
banco[var_ocup == 3214, isco := 3225]
banco[var_ocup == 3251, isco := 3225]
banco[var_ocup == 2264, isco := 3226]
banco[var_ocup == 3255, isco := 3226]
banco[var_ocup == 3240, isco := 3227]
banco[var_ocup == 3213, isco := 3228]
banco[var_ocup == 3259, isco := 3229]
banco[var_ocup == 3221, isco := 3231]
banco[var_ocup == 3222, isco := 3232]
banco[var_ocup == 2230, isco := 3241]
banco[var_ocup == 3230, isco := 3241]
banco[var_ocup == 3413, isco := 3242]
banco[var_ocup == 3311, isco := 3411]
banco[var_ocup == 3312, isco := 3411]
banco[var_ocup == 3321, isco := 3412]
banco[var_ocup == 3334, isco := 3413]
banco[var_ocup == 4221, isco := 3414]
banco[var_ocup == 2433, isco := 3415]
banco[var_ocup == 2434, isco := 3415]
banco[var_ocup == 3322, isco := 3415]
banco[var_ocup == 3339, isco := 3415]
banco[var_ocup == 3323, isco := 3416]
banco[var_ocup == 3315, isco := 3417]
banco[var_ocup == 3324, isco := 3421]
banco[var_ocup == 3331, isco := 3422]
banco[var_ocup == 3351, isco := 3422]
banco[var_ocup == 3333, isco := 3423]
banco[var_ocup == 3341, isco := 3431]
banco[var_ocup == 3342, isco := 3431]
banco[var_ocup == 3343, isco := 3431]
banco[var_ocup == 3344, isco := 3431]
banco[var_ocup == 3411, isco := 3432]
banco[var_ocup == 3313, isco := 3433]
banco[var_ocup == 3314, isco := 3434]
banco[var_ocup == 3332, isco := 3439]
banco[var_ocup == 3433, isco := 3439]
banco[var_ocup == 3435, isco := 3439]
banco[var_ocup == 3352, isco := 3442]
banco[var_ocup == 3353, isco := 3443]
banco[var_ocup == 3354, isco := 3444]
banco[var_ocup == 3359, isco := 3444]
banco[var_ocup == 3355, isco := 3450]
banco[var_ocup == 3412, isco := 3460]
banco[var_ocup == 2163, isco := 3471]
banco[var_ocup == 2166, isco := 3471]
banco[var_ocup == 3432, isco := 3471]
banco[var_ocup == 2656, isco := 3472]
banco[var_ocup == 3421, isco := 3475]
banco[var_ocup == 3422, isco := 3475]
banco[var_ocup == 4131, isco := 4111]
banco[var_ocup == 4132, isco := 4113]
banco[var_ocup == 4120, isco := 4115]
banco[var_ocup == 4211, isco := 4121]
banco[var_ocup == 4311, isco := 4121]
banco[var_ocup == 4313, isco := 4121]
banco[var_ocup == 4227, isco := 4122]
banco[var_ocup == 4312, isco := 4122]
banco[var_ocup == 4321, isco := 4131]
banco[var_ocup == 4322, isco := 4132]
banco[var_ocup == 4323, isco := 4133]
banco[var_ocup == 4411, isco := 4141]
banco[var_ocup == 4415, isco := 4141]
banco[var_ocup == 4412, isco := 4142]
banco[var_ocup == 4413, isco := 4143]
banco[var_ocup == 4414, isco := 4144]
banco[var_ocup == 4110, isco := 4190]
banco[var_ocup == 4416, isco := 4190]
banco[var_ocup == 4419, isco := 4190]
banco[var_ocup == 5230, isco := 4211]
banco[var_ocup == 4212, isco := 4212]
banco[var_ocup == 4213, isco := 4214]
banco[var_ocup == 4214, isco := 4215]
banco[var_ocup == 4224, isco := 4222]
banco[var_ocup == 4225, isco := 4222]
banco[var_ocup == 4226, isco := 4222]
banco[var_ocup == 4229, isco := 4222]
banco[var_ocup == 4222, isco := 4223]
banco[var_ocup == 4223, isco := 4223]
banco[var_ocup == 5111, isco := 5111]
banco[var_ocup == 5112, isco := 5112]
banco[var_ocup == 8331, isco := 5112]
banco[var_ocup == 5113, isco := 5113]
banco[var_ocup == 5151, isco := 5121]
banco[var_ocup == 5152, isco := 5121]
banco[var_ocup == 3434, isco := 5122]
banco[var_ocup == 5120, isco := 5122]
banco[var_ocup == 9411, isco := 5122]
banco[var_ocup == 9412, isco := 5122]
banco[var_ocup == 5131, isco := 5123]
banco[var_ocup == 5132, isco := 5123]
banco[var_ocup == 5311, isco := 5131]
banco[var_ocup == 5312, isco := 5131]
banco[var_ocup == 3258, isco := 5132]
banco[var_ocup == 5321, isco := 5132]
banco[var_ocup == 5329, isco := 5132]
banco[var_ocup == 5322, isco := 5133]
banco[var_ocup == 3253, isco := 5139]
banco[var_ocup == 5164, isco := 5139]
banco[var_ocup == 5141, isco := 5141]
banco[var_ocup == 5142, isco := 5141]
banco[var_ocup == 5162, isco := 5142]
banco[var_ocup == 5163, isco := 5143]
banco[var_ocup == 5169, isco := 5149]
banco[var_ocup == 5161, isco := 5151]
banco[var_ocup == 5412, isco := 5162]
banco[var_ocup == 5413, isco := 5163]
banco[var_ocup == 5414, isco := 9152]
banco[var_ocup == 5419, isco := 5169]
banco[var_ocup == 5241, isco := 5210]
banco[var_ocup == 5221, isco := 5220]
banco[var_ocup == 5222, isco := 5220]
banco[var_ocup == 5223, isco := 5220]
banco[var_ocup == 5242, isco := 5220]
banco[var_ocup == 5245, isco := 5220]
banco[var_ocup == 5246, isco := 5220]
banco[var_ocup == 5249, isco := 5220]
banco[var_ocup == 5211, isco := 5230]
banco[var_ocup == 6111, isco := 6111]
banco[var_ocup == 6114, isco := 6111]
banco[var_ocup == 6112, isco := 6113]
banco[var_ocup == 9214, isco := 9211]
banco[var_ocup == 6121, isco := 6121]
banco[var_ocup == 6122, isco := 6122]
banco[var_ocup == 6123, isco := 6123]
banco[var_ocup == 6129, isco := 6129]
banco[var_ocup == 6130, isco := 6141]
banco[var_ocup == 6210, isco := 6141]
banco[var_ocup == 9215, isco := 9212]
banco[var_ocup == 6221, isco := 6151]
banco[var_ocup == 6225, isco := 6152]
banco[var_ocup == 6224, isco := 6154]
banco[var_ocup == 9216, isco := 9212]
banco[var_ocup == 3121, isco := 7111]
banco[var_ocup == 8111, isco := 7111]
banco[var_ocup == 7542, isco := 7112]
banco[var_ocup == 7113, isco := 7113]
banco[var_ocup == 7111, isco := 7122]
banco[var_ocup == 7112, isco := 7122]
banco[var_ocup == 9312, isco := 7122]
banco[var_ocup == 9313, isco := 7122]
banco[var_ocup == 7114, isco := 7123]
banco[var_ocup == 7115, isco := 7124]
banco[var_ocup == 3123, isco := 7129]
banco[var_ocup == 7119, isco := 7129]
banco[var_ocup == 7121, isco := 7131]
banco[var_ocup == 7122, isco := 7132]
banco[var_ocup == 7123, isco := 7133]
banco[var_ocup == 7124, isco := 7134]
banco[var_ocup == 7125, isco := 7135]
banco[var_ocup == 7126, isco := 7136]
banco[var_ocup == 7411, isco := 7137]
banco[var_ocup == 7131, isco := 7141]
banco[var_ocup == 7132, isco := 7142]
banco[var_ocup == 7133, isco := 7143]
banco[var_ocup == 7544, isco := 7143]
banco[var_ocup == 7211, isco := 7211]
banco[var_ocup == 7212, isco := 7212]
banco[var_ocup == 7213, isco := 7213]
banco[var_ocup == 7214, isco := 7214]
banco[var_ocup == 7215, isco := 7215]
banco[var_ocup == 7541, isco := 7216]
banco[var_ocup == 7221, isco := 7221]
banco[var_ocup == 7222, isco := 7222]
banco[var_ocup == 7223, isco := 7223]
banco[var_ocup == 7224, isco := 7224]
banco[var_ocup == 7231, isco := 7231]
banco[var_ocup == 7234, isco := 7231]
banco[var_ocup == 7232, isco := 7232]
banco[var_ocup == 7127, isco := 7233]
banco[var_ocup == 7233, isco := 7233]
banco[var_ocup == 7412, isco := 7241]
banco[var_ocup == 7421, isco := 7242]
banco[var_ocup == 7422, isco := 7244]
banco[var_ocup == 7413, isco := 7245]
banco[var_ocup == 7311, isco := 7311]
banco[var_ocup == 7312, isco := 7312]
banco[var_ocup == 7313, isco := 7313]
banco[var_ocup == 7314, isco := 7321]
banco[var_ocup == 7315, isco := 7322]
banco[var_ocup == 7316, isco := 7324]
banco[var_ocup == 7317, isco := 7331]
banco[var_ocup == 7319, isco := 7331]
banco[var_ocup == 7549, isco := 7331]
banco[var_ocup == 7318, isco := 7332]
banco[var_ocup == 7321, isco := 7341]
banco[var_ocup == 8132, isco := 7344]
banco[var_ocup == 7323, isco := 7345]
banco[var_ocup == 7511, isco := 7411]
banco[var_ocup == 7512, isco := 7412]
banco[var_ocup == 7513, isco := 7413]
banco[var_ocup == 7514, isco := 7414]
banco[var_ocup == 7515, isco := 7415]
banco[var_ocup == 7516, isco := 7416]
banco[var_ocup == 7521, isco := 7421]
banco[var_ocup == 7522, isco := 7422]
banco[var_ocup == 7523, isco := 7423]
banco[var_ocup == 8152, isco := 8262]
banco[var_ocup == 7531, isco := 7433]
banco[var_ocup == 7532, isco := 7435]
banco[var_ocup == 7533, isco := 7436]
banco[var_ocup == 7534, isco := 7437]
banco[var_ocup == 7535, isco := 7441]
banco[var_ocup == 7536, isco := 7442]
banco[var_ocup == 8112, isco := 8112]
banco[var_ocup == 8113, isco := 8113]
banco[var_ocup == 3135, isco := 8121]
banco[var_ocup == 8121, isco := 8121]
banco[var_ocup == 8181, isco := 8131]
banco[var_ocup == 8172, isco := 8141]
banco[var_ocup == 8171, isco := 8142]
banco[var_ocup == 8131, isco := 8151]
banco[var_ocup == 3133, isco := 8152]
banco[var_ocup == 3134, isco := 8155]
banco[var_ocup == 3131, isco := 8161]
banco[var_ocup == 8182, isco := 8162]
banco[var_ocup == 3132, isco := 8163]
banco[var_ocup == 3122, isco := 8171]
banco[var_ocup == 8114, isco := 8212]
banco[var_ocup == 8122, isco := 8223]
banco[var_ocup == 8141, isco := 8231]
banco[var_ocup == 8142, isco := 8232]
banco[var_ocup == 7322, isco := 8251]
banco[var_ocup == 8143, isco := 8253]
banco[var_ocup == 8151, isco := 8261]
banco[var_ocup == 8153, isco := 8263]
banco[var_ocup == 8154, isco := 8264]
banco[var_ocup == 8157, isco := 8264]
banco[var_ocup == 8155, isco := 8265]
banco[var_ocup == 8156, isco := 8266]
banco[var_ocup == 8159, isco := 8269]
banco[var_ocup == 8160, isco := 8271]
banco[var_ocup == 8211, isco := 8281]
banco[var_ocup == 8212, isco := 8282]
banco[var_ocup == 8189, isco := 8290]
banco[var_ocup == 8219, isco := 8290]
banco[var_ocup == 8311, isco := 8311]
banco[var_ocup == 8312, isco := 8312]
banco[var_ocup == 8321, isco := 8321]
banco[var_ocup == 8322, isco := 8322]
banco[var_ocup == 8332, isco := 8324]
banco[var_ocup == 8341, isco := 8331]
banco[var_ocup == 8342, isco := 8332]
banco[var_ocup == 8343, isco := 8333]
banco[var_ocup == 8344, isco := 8334]
banco[var_ocup == 8350, isco := 8340]
banco[var_ocup == 5212, isco := 9111]
banco[var_ocup == 9520, isco := 9112]
banco[var_ocup == 5243, isco := 9113]
banco[var_ocup == 5244, isco := 9113]
banco[var_ocup == 9510, isco := 9120]
banco[var_ocup == 9111, isco := 9131]
banco[var_ocup == 9112, isco := 9132]
banco[var_ocup == 9129, isco := 9132]
banco[var_ocup == 9121, isco := 9133]
banco[var_ocup == 9122, isco := 9142]
banco[var_ocup == 9123, isco := 9142]
banco[var_ocup == 9621, isco := 9151]
banco[var_ocup == 5153, isco := 9141]
banco[var_ocup == 9623, isco := 9153]
banco[var_ocup == 9611, isco := 9161]
banco[var_ocup == 9612, isco := 9161]
banco[var_ocup == 9613, isco := 9162]
banco[var_ocup == 9622, isco := 9162]
banco[var_ocup == 9624, isco := 9162]
banco[var_ocup == 9211, isco := 9211]
banco[var_ocup == 9212, isco := 9211]
banco[var_ocup == 9213, isco := 9211]
banco[var_ocup == 9311, isco := 9311]
banco[var_ocup == 9329, isco := 9321]
banco[var_ocup == 8183, isco := 9322]
banco[var_ocup == 9321, isco := 9322]
banco[var_ocup == 9331, isco := 9331]
banco[var_ocup == 9332, isco := 9332]
banco[var_ocup == 9333, isco := 9333]
banco[var_ocup == 9334, isco := 9333]
banco[var_ocup == 9629, isco := NA]
banco[var_ocup == 9999, isco := NA]
banco[var_ocup == 9998, isco := NA]
banco[var_ocup == 9988, isco := NA]
banco[isco==6122 & PosicaoOcup == 2, isco := 1311]
banco[isco ==6121 & PosicaoOcup == 2, isco := 1311]
banco[isco==1237 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1234 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1233 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1232 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1231 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1229 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1227 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1226 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1225 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1224 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1223 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1222 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1221 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1210 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1143 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco == 2131 & trtot < 5 , isco := 3121]
banco[(isco==9211 | isco == 6113) & (isic == 114 | isic == 120), isco := 9141]
banco[isco==6129 & PosicaoOcup == 1, isco := 9211]
banco[isco==6123 & PosicaoOcup == 1, isco := 9211]
banco[isco==6113 & PosicaoOcup == 1, isco := 9211]
banco[isco==6111 & PosicaoOcup == 1, isco := 9211]
banco[isco ==6154 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6153 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6152 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6151 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6142 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6141 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6122 & PosicaoOcup == 1, isco := 9211]
banco[isco ==6121 & PosicaoOcup == 1, isco := 9211]
banco[isco==6129 & PosicaoOcup == 2, isco := 1311]
banco[isco==6123 & PosicaoOcup == 2, isco := 1311]
banco[isco==6113 & PosicaoOcup == 2, isco := 1311]
banco[isco==6111 & PosicaoOcup == 2, isco := 1311]
}
return(banco[,isco])
}
antrologos/harmonizePNAD documentation built on May 15, 2019, 10:48 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
ocupIBGEToisco <-
function(var_ocup, # Character Nome da variavel sobre a ocupacaoo do individuo, ja
# convertida para o sistema isco-88
var_isic, # Character Nome da variavel setor de atividade da ocupacao do
# individuo, no sistema isic-3
var_posOcup, # Character. Nome da variavel sobre posicao na ocupacao - padronizada
var_transicoes, # Character. Nome da variavel de transicoes educacionais.
# Apenas a necessaria quando tipo="censo" e ano="2010"
tipo="censo", # Character. "censo" ou "pnad"
ano, #numeric se tipo="censo": 1960, 1970, 1980, 1991, 2000, 2010
# se tipo="pnad": 1981:1990, 1992:1993, 1995:1999, 2001:2009, 2011:2013
# se ano = NULL, todos os anos
var_ocup2 = NULL
){
Verifica_data.table <- require(data.table)
if(!Verifica_data.table){
return(
message("ERRO: Nao foi possivel carregar o pacote data.table.\nTalvez ele nao esteja instalado")
)
}
banco <- data.table(var_ocup = var_ocup,
isic = var_isic,
PosicaoOcup = var_posOcup,
trtot = var_transicoes,
isco = double(length = length(var_ocup))
)
if( tipo == "censo" & ano == 1960){
banco[var_ocup==111, isco := 6111]
banco[var_ocup==112, isco := 6121]
banco[var_ocup==113, isco := 6122]
banco[var_ocup==114, isco := 1312]
banco[var_ocup==115, isco := 1314]
banco[var_ocup==116, isco := 1315]
banco[var_ocup==117, isco := 1319]
banco[var_ocup==121, isco := 1120]
banco[var_ocup==122, isco := 1231]
banco[var_ocup==123, isco := 1311]
banco[var_ocup==124, isco := 1319]
banco[var_ocup==181, isco := 4215]
banco[var_ocup==182, isco := 4121]
banco[var_ocup==183, isco := 4215]
banco[var_ocup==184, isco := 2411]
banco[var_ocup==185, isco := 3444]
banco[var_ocup==186, isco := 4131]
banco[var_ocup==187, isco := 4111]
banco[var_ocup==188, isco := 4111]
banco[var_ocup==189, isco := 4143]
banco[var_ocup==191, isco := 4190]
banco[var_ocup==211, isco := 2142]
banco[var_ocup==212, isco := 2141]
banco[var_ocup==213, isco := 2148]
banco[var_ocup==214, isco := 2148]
banco[var_ocup==215, isco := 2113]
banco[var_ocup==216, isco := 2224]
banco[var_ocup==217, isco := 3228]
banco[var_ocup==218, isco := 3211]
banco[var_ocup==221, isco := 2213]
banco[var_ocup==222, isco := 2223]
banco[var_ocup==223, isco := 3241]
banco[var_ocup==231, isco := 2221]
banco[var_ocup==232, isco := 2222]
banco[var_ocup==241, isco := 2446]
banco[var_ocup==242, isco := 3232]
banco[var_ocup==243, isco := 3231]
banco[var_ocup==244, isco := 3225]
banco[var_ocup==245, isco := 3133]
banco[var_ocup==251, isco := 2121]
banco[var_ocup==252, isco := 2331]
banco[var_ocup==253, isco := 2320]
banco[var_ocup==254, isco := 2310]
banco[var_ocup==255, isco := 2359]
banco[var_ocup==256, isco := 2442]
banco[var_ocup==257, isco := 3340]
banco[var_ocup==261, isco := 2422]
banco[var_ocup==262, isco := 2421]
banco[var_ocup==263, isco := 2421]
banco[var_ocup==264, isco := 2429]
banco[var_ocup==265, isco := 3432]
banco[var_ocup==271, isco := 2460]
banco[var_ocup==281, isco := 2451]
banco[var_ocup==291, isco := 2452]
banco[var_ocup==292, isco := 2419]
banco[var_ocup==293, isco := 3471]
banco[var_ocup==294, isco := 3131]
banco[var_ocup==295, isco := 3131]
banco[var_ocup==311, isco := 3212]
banco[var_ocup==312, isco := 8331]
banco[var_ocup==313, isco := 8331]
banco[var_ocup==321, isco := 6113]
banco[var_ocup==322, isco := 6113]
banco[var_ocup==323, isco := 9211]
banco[var_ocup==324, isco := 9211]
banco[var_ocup==331, isco := 6152]
banco[var_ocup==332, isco := 6154]
banco[var_ocup==341, isco := 6141]
banco[var_ocup==342, isco := 6142]
banco[var_ocup==343, isco := 6141]
banco[var_ocup==344, isco := 6111]
banco[var_ocup==345, isco := 6141]
banco[var_ocup==411, isco := 7111]
banco[var_ocup==421, isco := 7113]
banco[var_ocup==431, isco := 8155]
banco[var_ocup==441, isco := 9311]
banco[var_ocup==511, isco := 7211]
banco[var_ocup==512, isco := 8122]
banco[var_ocup==513, isco := 8124]
banco[var_ocup==514, isco := 7224]
banco[var_ocup==521, isco := 8124]
banco[var_ocup==522, isco := 8113]
banco[var_ocup==523, isco := 8211]
banco[var_ocup==524, isco := 7231]
banco[var_ocup==525, isco := 7233]
banco[var_ocup==526, isco := 8223]
banco[var_ocup==527, isco := 7212]
banco[var_ocup==528, isco := 7213]
banco[var_ocup==529, isco := 7221]
banco[var_ocup==531, isco := 7231]
banco[var_ocup==532, isco := 7214]
banco[var_ocup==533, isco := 7213]
banco[var_ocup==534, isco := 7221]
banco[var_ocup==541, isco := 7431]
banco[var_ocup==542, isco := 8261]
banco[var_ocup==543, isco := 7431]
banco[var_ocup==544, isco := 8262]
banco[var_ocup==545, isco := 8262]
banco[var_ocup==546, isco := 8269]
banco[var_ocup==547, isco := 7332]
banco[var_ocup==548, isco := 8262]
banco[var_ocup==549, isco := 7432]
banco[var_ocup==551, isco := 8264]
banco[var_ocup==552, isco := 8264]
banco[var_ocup==553, isco := 8269]
banco[var_ocup==554, isco := 7432]
banco[var_ocup==561, isco := 7332]
banco[var_ocup==562, isco := 7441]
banco[var_ocup==571, isco := 7433]
banco[var_ocup==572, isco := 7432]
banco[var_ocup==573, isco := 7424]
banco[var_ocup==574, isco := 7433]
banco[var_ocup==575, isco := 7442]
banco[var_ocup==576, isco := 7442]
banco[var_ocup==581, isco := 7422]
banco[var_ocup==582, isco := 7124]
banco[var_ocup==583, isco := 7421]
banco[var_ocup==584, isco := 8141]
banco[var_ocup==585, isco := 7437]
banco[var_ocup==586, isco := 7437]
banco[var_ocup==587, isco := 7421]
banco[var_ocup==591, isco := 7245]
banco[var_ocup==592, isco := 7242]
banco[var_ocup==611, isco := 7129]
banco[var_ocup==612, isco := 7123]
banco[var_ocup==613, isco := 7122]
banco[var_ocup==614, isco := 7122]
banco[var_ocup==615, isco := 7141]
banco[var_ocup==616, isco := 7133]
banco[var_ocup==617, isco := 7132]
banco[var_ocup==618, isco := 7136]
banco[var_ocup==619, isco := 7135]
banco[var_ocup==621, isco := 7122]
banco[var_ocup==622, isco := 7132]
banco[var_ocup==623, isco := 8332]
banco[var_ocup==631, isco := 8271]
banco[var_ocup==632, isco := 7411]
banco[var_ocup==633, isco := 7411]
banco[var_ocup==634, isco := 8272]
banco[var_ocup==635, isco := 7412]
banco[var_ocup==636, isco := 7412]
banco[var_ocup==637, isco := 7412]
banco[var_ocup==638, isco := 8273]
banco[var_ocup==639, isco := 8276]
banco[var_ocup==641, isco := 8278]
banco[var_ocup==642, isco := 8277]
banco[var_ocup==643, isco := 8271]
banco[var_ocup==651, isco := 7341]
banco[var_ocup==652, isco := 7341]
banco[var_ocup==653, isco := 7343]
banco[var_ocup==654, isco := 8251]
banco[var_ocup==655, isco := 7343]
banco[var_ocup==656, isco := 7345]
banco[var_ocup==657, isco := 7346]
banco[var_ocup==661, isco := 7322]
banco[var_ocup==662, isco := 7321]
banco[var_ocup==663, isco := 7324]
banco[var_ocup==664, isco := 7321]
banco[var_ocup==671, isco := 3119]
banco[var_ocup==672, isco := 7313]
banco[var_ocup==673, isco := 7313]
banco[var_ocup==674, isco := 8231]
banco[var_ocup==675, isco := 8159]
banco[var_ocup==676, isco := 8290]
banco[var_ocup==681, isco := 7424]
banco[var_ocup==682, isco := 7424]
banco[var_ocup==683, isco := 7113]
banco[var_ocup==684, isco := 7416]
banco[var_ocup==685, isco := 7224]
banco[var_ocup==686, isco := 7141]
banco[var_ocup==687, isco := 7332]
banco[var_ocup==688, isco := 8290]
banco[var_ocup==689, isco := 9322]
banco[var_ocup==711, isco := 7411]
banco[var_ocup==712, isco := 9111]
banco[var_ocup==713, isco := 5220]
banco[var_ocup==714, isco := 9112]
banco[var_ocup==721, isco := 3415]
banco[var_ocup==722, isco := 3415]
banco[var_ocup==723, isco := 3429]
banco[var_ocup==731, isco := 3411]
banco[var_ocup==732, isco := 3416]
banco[var_ocup==733, isco := 3417]
banco[var_ocup==811, isco := 3143]
banco[var_ocup==812, isco := 5111]
banco[var_ocup==821, isco := 3142]
banco[var_ocup==822, isco := 3142]
banco[var_ocup==823, isco := 8311]
banco[var_ocup==824, isco := 8162]
banco[var_ocup==825, isco := 8340]
banco[var_ocup==826, isco := 8340]
banco[var_ocup==827, isco := 8340]
banco[var_ocup==831, isco := 8340]
banco[var_ocup==832, isco := 8333]
banco[var_ocup==833, isco := 9333]
banco[var_ocup==841, isco := 4133]
banco[var_ocup==842, isco := 8311]
banco[var_ocup==843, isco := 8311]
banco[var_ocup==844, isco := 8162]
banco[var_ocup==845, isco := 8312]
banco[var_ocup==846, isco := 8312]
banco[var_ocup==851, isco := 8322]
banco[var_ocup==852, isco := 5112]
banco[var_ocup==853, isco := 8311]
banco[var_ocup==854, isco := 8311]
banco[var_ocup==855, isco := 9332]
banco[var_ocup==861, isco := 4133]
banco[var_ocup==862, isco := 9312]
banco[var_ocup==863, isco := 9312]
banco[var_ocup==871, isco := 4142]
banco[var_ocup==872, isco := 3139]
banco[var_ocup==873, isco := 4223]
banco[var_ocup==874, isco := 4142]
banco[var_ocup==875, isco := 4142]
banco[var_ocup==876, isco := 7244]
banco[var_ocup==911, isco := 5122]
banco[var_ocup==912, isco := 5123]
banco[var_ocup==913, isco := 9131]
banco[var_ocup==921, isco := 9131]
banco[var_ocup==931, isco := 5141]
banco[var_ocup==932, isco := 5141]
banco[var_ocup==933, isco := 9131]
banco[var_ocup==934, isco := 9120]
banco[var_ocup==941, isco := 2453]
banco[var_ocup==942, isco := 2455]
banco[var_ocup==943, isco := 3472]
banco[var_ocup==944, isco := 3131]
banco[var_ocup==945, isco := 3131]
banco[var_ocup==951, isco := 3475]
banco[var_ocup==961, isco := 9142]
banco[var_ocup==962, isco := 9142]
banco[var_ocup==971, isco := 110]
banco[var_ocup==972, isco := 110]
banco[var_ocup==973, isco := 3450]
banco[var_ocup==974, isco := 3450]
banco[var_ocup==975, isco := 5162]
banco[var_ocup==976, isco := 5163]
banco[var_ocup==981, isco := 3213]
banco[var_ocup==982, isco := 9321]
banco[var_ocup==983, isco := 9151]
banco[var_ocup==984, isco := 3222]
banco[var_ocup==985, isco := 3444]
banco[var_ocup==986, isco := 9161]
banco[var_ocup==987, isco := 7233]
banco[var_ocup==988, isco := 8290]
banco[var_ocup==989, isco := 9333]
banco[var_ocup==998, isco := 9333]
banco[var_ocup==999, isco := NA]
banco[isco == 6154 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6153 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6152 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6151 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6142 & PosicaoOcup == 1, isco := 9212]
banco[isco == 6141 & PosicaoOcup == 1, isco := 9212]
banco[isco == 6122 & PosicaoOcup == 1, isco := 9211]
banco[isco == 6121 & PosicaoOcup == 1, isco := 9211]
banco[isco == 6111 & PosicaoOcup == 1, isco := 9211]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 90) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1317]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 80) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1316]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 70) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1315]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 60) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1314]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 50) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1313]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 20 | isic == 30| isic == 40) & (PosicaoOcup == 2 |PosicaoOcup == 3), isco := 1312]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 100), isco := 1120]
banco[(var_ocup == 117|var_ocup == 124) & isic == 10 & PosicaoOcup == 0, isco := 6111]
banco[var_ocup == 111 & PosicaoOcup == 2, isco := 1221]
banco[var_ocup == 112 & PosicaoOcup == 2, isco := 1221]
banco[var_ocup == 113 & PosicaoOcup == 2, isco := 1221]
banco[var_ocup == 181 & isic == 100, isco := 3442]
banco[var_ocup == 183 & isic == 100, isco := 3442]
banco[(var_ocup == 117 | var_ocup=124) & isic != 10 & PosicaoOcup == 0, isco := 5220]
banco[var_ocup == 999 & isic == 50, isco := 7122]
banco[var_ocup == 999 & isic == 10, isco := 9211]
banco[var_ocup == 998 & isic == 50, isco := 7122]
banco[var_ocup == 998 & isic == 100, isco := 5149]
banco[var_ocup == 989 & isic == 50, isco := 7122]
banco[var_ocup == 989 & isic == 20, isco := 9311]
banco[var_ocup == 989 & isic == 100, isco := 5149]
banco[var_ocup == 989 & isic == 10, isco := 9211]
banco[var_ocup == 989 & isic == 10 & trtot <=1, isco := 9211]
banco[var_ocup == 933 & PosicaoOcup == 1 & isic != 120 & trtot >=1, isco := 5139]
banco[var_ocup == 571 & PosicaoOcup == 1 & isic == 30, isco := 8263]
banco[var_ocup == 331 & trtot >= 2 & PosicaoOcup == 1, isco := 3142]
banco[var_ocup == 185 & isic == 80, isco := 4133]
banco[var_ocup == 322 & isic != 10, isco := 9141]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 90) & (PosicaoOcup == 1), isco := 1227]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 80) & (PosicaoOcup == 1), isco := 1226]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 70) & (PosicaoOcup == 1), isco := 1225]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 60) & (PosicaoOcup == 1), isco := 1224]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 50) & (PosicaoOcup == 1), isco := 1223]
banco[(var_ocup == 117|var_ocup == 124) & (isic == 20|isic == 30|isic == 40) & (PosicaoOcup == 1), isco := 1222]
banco[var_ocup == 115 & PosicaoOcup == 1 , isco := 5220]
}
if( tipo == "censo" & ano == 1970){
banco[var_ocup == 101, isco := 2142]
banco[var_ocup == 102, isco := 2141]
banco[var_ocup == 103, isco := 2148]
banco[var_ocup == 104, isco := 2148]
banco[var_ocup == 11, isco := 6111]
banco[var_ocup == 111, isco := 2113]
banco[var_ocup == 112, isco := 2224]
banco[var_ocup == 113, isco := 2111]
banco[var_ocup == 114, isco := 2114]
banco[var_ocup == 115, isco := 2111]
banco[var_ocup == 116, isco := 2112]
banco[var_ocup == 12, isco := 6121]
banco[var_ocup == 121, isco := 2213]
banco[var_ocup == 122, isco := 2223]
banco[var_ocup == 123, isco := 3241]
banco[var_ocup == 13, isco := 6122]
banco[var_ocup == 130, isco := 2221]
banco[var_ocup == 131, isco := 2222]
banco[var_ocup == 132, isco := 3232]
banco[var_ocup == 133, isco := 2230]
banco[var_ocup == 134, isco := 3231]
banco[var_ocup == 135, isco := 3226]
banco[var_ocup == 136, isco := 3225]
banco[var_ocup == 137, isco := 3133]
banco[var_ocup == 138, isco := 3228]
banco[var_ocup == 139, isco := 3211]
banco[var_ocup == 14, isco := 1222]
banco[var_ocup == 141, isco := 2121]
banco[var_ocup == 142, isco := 2122]
banco[var_ocup == 143, isco := 2441]
banco[var_ocup == 144, isco := 2411]
banco[var_ocup == 145, isco := 2442]
banco[var_ocup == 15, isco := 1224]
banco[var_ocup == 151, isco := 2331]
banco[var_ocup == 152, isco := 2320]
banco[var_ocup == 153, isco := 2310]
banco[var_ocup == 154, isco := 2359]
banco[var_ocup == 155, isco := 2351]
banco[var_ocup == 156, isco := 3340]
banco[var_ocup == 16, isco := 1225]
banco[var_ocup == 161, isco := 2422]
banco[var_ocup == 162, isco := 2421]
banco[var_ocup == 163, isco := 2421]
banco[var_ocup == 164, isco := 2429]
banco[var_ocup == 165, isco := 3432]
banco[var_ocup == 17, isco := 1229]
banco[var_ocup == 171, isco := 2460]
banco[var_ocup == 172, isco := 2446]
banco[var_ocup == 173, isco := 3460]
banco[var_ocup == 181, isco := 2451]
banco[var_ocup == 191, isco := 2452]
banco[var_ocup == 192, isco := 2453]
banco[var_ocup == 193, isco := 2455]
banco[var_ocup == 194, isco := 3472]
banco[var_ocup == 195, isco := 3471]
banco[var_ocup == 196, isco := 3131]
banco[var_ocup == 197, isco := 3131]
banco[var_ocup == 198, isco := 3132]
banco[var_ocup == 21, isco := 1120]
banco[var_ocup == 211, isco := 3212]
banco[var_ocup == 212, isco := 8331]
banco[var_ocup == 213, isco := 8331]
banco[var_ocup == 22, isco := 1231]
banco[var_ocup == 221, isco := 6113]
banco[var_ocup == 222, isco := 6113]
banco[var_ocup == 223, isco := 9211]
banco[var_ocup == 224, isco := 9211]
banco[var_ocup == 23, isco := 1221]
banco[var_ocup == 231, isco := 6154]
banco[var_ocup == 232, isco := 6152]
banco[var_ocup == 24, isco := 1229]
banco[var_ocup == 241, isco := 6141]
banco[var_ocup == 242, isco := 6142]
banco[var_ocup == 243, isco := 6141]
banco[var_ocup == 244, isco := 6111]
banco[var_ocup == 245, isco := 6141]
banco[var_ocup == 31, isco := 3442]
banco[var_ocup == 311, isco := 7111]
banco[var_ocup == 32, isco := 3443]
banco[var_ocup == 321, isco := 7113]
banco[var_ocup == 33, isco := 3431]
banco[var_ocup == 331, isco := 8155]
banco[var_ocup == 34, isco := 4215]
banco[var_ocup == 341, isco := 9311]
banco[var_ocup == 35, isco := 4121]
banco[var_ocup == 36, isco := 3439]
banco[var_ocup == 37, isco := 4131]
banco[var_ocup == 38, isco := 4111]
banco[var_ocup == 39, isco := 4111]
banco[var_ocup == 40, isco := 4111]
banco[var_ocup == 41, isco := 2444]
banco[var_ocup == 411, isco := 7211]
banco[var_ocup == 412, isco := 8122]
banco[var_ocup == 413, isco := 8124]
banco[var_ocup == 414, isco := 7224]
banco[var_ocup == 42, isco := 2432]
banco[var_ocup == 421, isco := 8124]
banco[var_ocup == 422, isco := 8113]
banco[var_ocup == 423, isco := 8211]
banco[var_ocup == 424, isco := 7231]
banco[var_ocup == 425, isco := 7233]
banco[var_ocup == 426, isco := 8223]
banco[var_ocup == 427, isco := 7212]
banco[var_ocup == 428, isco := 7213]
banco[var_ocup == 429, isco := 7221]
banco[var_ocup == 43, isco := 3122]
banco[var_ocup == 430, isco := 7231]
banco[var_ocup == 431, isco := 7214]
banco[var_ocup == 432, isco := 7213]
banco[var_ocup == 433, isco := 7221]
banco[var_ocup == 44, isco := 4143]
banco[var_ocup == 441, isco := 7431]
banco[var_ocup == 442, isco := 8261]
banco[var_ocup == 443, isco := 7431]
banco[var_ocup == 444, isco := 8262]
banco[var_ocup == 445, isco := 8262]
banco[var_ocup == 446, isco := 8269]
banco[var_ocup == 447, isco := 7332]
banco[var_ocup == 448, isco := 8262]
banco[var_ocup == 449, isco := 7432]
banco[var_ocup == 45, isco := 4190]
banco[var_ocup == 450, isco := 8264]
banco[var_ocup == 451, isco := 8264]
banco[var_ocup == 452, isco := 8269]
banco[var_ocup == 461, isco := 7332]
banco[var_ocup == 462, isco := 7441]
banco[var_ocup == 471, isco := 7433]
banco[var_ocup == 472, isco := 7432]
banco[var_ocup == 473, isco := 7424]
banco[var_ocup == 474, isco := 7433]
banco[var_ocup == 475, isco := 7442]
banco[var_ocup == 476, isco := 7442]
banco[var_ocup == 481, isco := 7422]
banco[var_ocup == 482, isco := 7124]
banco[var_ocup == 483, isco := 7421]
banco[var_ocup == 484, isco := 8141]
banco[var_ocup == 485, isco := 7437]
banco[var_ocup == 486, isco := 7437]
banco[var_ocup == 487, isco := 7421]
banco[var_ocup == 491, isco := 7245]
banco[var_ocup == 492, isco := 7242]
banco[var_ocup == 511, isco := 7129]
banco[var_ocup == 512, isco := 7123]
banco[var_ocup == 513, isco := 7122]
banco[var_ocup == 514, isco := 7122]
banco[var_ocup == 515, isco := 7141]
banco[var_ocup == 516, isco := 7133]
banco[var_ocup == 517, isco := 7132]
banco[var_ocup == 518, isco := 7136]
banco[var_ocup == 519, isco := 7135]
banco[var_ocup == 520, isco := 7122]
banco[var_ocup == 521, isco := 7132]
banco[var_ocup == 522, isco := 8332]
banco[var_ocup == 531, isco := 8271]
banco[var_ocup == 532, isco := 7411]
banco[var_ocup == 533, isco := 7411]
banco[var_ocup == 534, isco := 8272]
banco[var_ocup == 535, isco := 7412]
banco[var_ocup == 536, isco := 7412]
banco[var_ocup == 537, isco := 7412]
banco[var_ocup == 538, isco := 8273]
banco[var_ocup == 539, isco := 8276]
banco[var_ocup == 540, isco := 8278]
banco[var_ocup == 541, isco := 8277]
banco[var_ocup == 542, isco := 8271]
banco[var_ocup == 551, isco := 7341]
banco[var_ocup == 552, isco := 7341]
banco[var_ocup == 553, isco := 7343]
banco[var_ocup == 554, isco := 8251]
banco[var_ocup == 555, isco := 7343]
banco[var_ocup == 556, isco := 7345]
banco[var_ocup == 557, isco := 7346]
banco[var_ocup == 561, isco := 7322]
banco[var_ocup == 562, isco := 7321]
banco[var_ocup == 563, isco := 7324]
banco[var_ocup == 564, isco := 7321]
banco[var_ocup == 571, isco := 3119]
banco[var_ocup == 572, isco := 7313]
banco[var_ocup == 573, isco := 7313]
banco[var_ocup == 574, isco := 8231]
banco[var_ocup == 575, isco := 8159]
banco[var_ocup == 576, isco := 7424]
banco[var_ocup == 577, isco := 7424]
banco[var_ocup == 578, isco := 7113]
banco[var_ocup == 579, isco := 7416]
banco[var_ocup == 580, isco := 7224]
banco[var_ocup == 581, isco := 7141]
banco[var_ocup == 582, isco := 8171]
banco[var_ocup == 583, isco := 7424]
banco[var_ocup == 584, isco := 8290]
banco[var_ocup == 585, isco := 9322]
banco[var_ocup == 586, isco := 8290]
banco[var_ocup == 611, isco := 7411]
banco[var_ocup == 612, isco := 9111]
banco[var_ocup == 613, isco := 5220]
banco[var_ocup == 614, isco := 9112]
banco[var_ocup == 621, isco := 3415]
banco[var_ocup == 622, isco := 3415]
banco[var_ocup == 623, isco := 3429]
banco[var_ocup == 631, isco := 3411]
banco[var_ocup == 632, isco := 3413]
banco[var_ocup == 633, isco := 3411]
banco[var_ocup == 634, isco := 3419]
banco[var_ocup == 635, isco := 3416]
banco[var_ocup == 711, isco := 3143]
banco[var_ocup == 712, isco := 5111]
banco[var_ocup == 721, isco := 3142]
banco[var_ocup == 722, isco := 3142]
banco[var_ocup == 723, isco := 8311]
banco[var_ocup == 724, isco := 8162]
banco[var_ocup == 725, isco := 8340]
banco[var_ocup == 726, isco := 8340]
banco[var_ocup == 727, isco := 8340]
banco[var_ocup == 731, isco := 8333]
banco[var_ocup == 732, isco := 9333]
banco[var_ocup == 741, isco := 4133]
banco[var_ocup == 742, isco := 8311]
banco[var_ocup == 743, isco := 8311]
banco[var_ocup == 744, isco := 8162]
banco[var_ocup == 745, isco := 8312]
banco[var_ocup == 746, isco := 8312]
banco[var_ocup == 751, isco := 8322]
banco[var_ocup == 752, isco := 5112]
banco[var_ocup == 753, isco := 9332]
banco[var_ocup == 761, isco := 4133]
banco[var_ocup == 762, isco := 9312]
banco[var_ocup == 763, isco := 9312]
banco[var_ocup == 771, isco := 4142]
banco[var_ocup == 772, isco := 4142]
banco[var_ocup == 773, isco := 3139]
banco[var_ocup == 774, isco := 4223]
banco[var_ocup == 775, isco := 4142]
banco[var_ocup == 776, isco := 4142]
banco[var_ocup == 777, isco := 7244]
banco[var_ocup == 811, isco := 5122]
banco[var_ocup == 812, isco := 5123]
banco[var_ocup == 813, isco := 9131]
banco[var_ocup == 821, isco := 5141]
banco[var_ocup == 822, isco := 5141]
banco[var_ocup == 823, isco := 9131]
banco[var_ocup == 824, isco := 9120]
banco[var_ocup == 831, isco := 3475]
banco[var_ocup == 832, isco := 3475]
banco[var_ocup == 833, isco := 3475]
banco[var_ocup == 834, isco := 3475]
banco[var_ocup == 841, isco := 110]
banco[var_ocup == 842, isco := 110]
banco[var_ocup == 843, isco := 3450]
banco[var_ocup == 844, isco := 3450]
banco[var_ocup == 845, isco := 5162]
banco[var_ocup == 846, isco := 5163]
banco[var_ocup == 847, isco := 3450]
banco[var_ocup == 911, isco := 9151]
banco[var_ocup == 912, isco := 9321]
banco[var_ocup == 913, isco := 3213]
banco[var_ocup == 914, isco := 3222]
banco[var_ocup == 915, isco := 3444]
banco[var_ocup == 916, isco := 9161]
banco[var_ocup == 917, isco := 7233]
banco[var_ocup == 918, isco := 3111]
banco[var_ocup == 919, isco := 3131]
banco[var_ocup == 920, isco := 8290]
banco[var_ocup == 921, isco := 9152]
banco[var_ocup == 922, isco := 9333]
banco[var_ocup == 923, isco := 9333]
banco[var_ocup == 924, isco := NA]
banco[var_ocup == 925, isco := NA]
banco[isco ==6154 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6153 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6152 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6151 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6142 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6141 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6122 & PosicaoOcup == 1, isco := 9211]
banco[isco ==6121 & PosicaoOcup == 1, isco := 9211]
banco[isco ==6111 & PosicaoOcup == 1, isco := 9211]
banco[(var_ocup==17|var_ocup==24) & (isic==90) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1317]
banco[(var_ocup==17|var_ocup==24) & (isic==80) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1316]
banco[(var_ocup==17|var_ocup==24) & (isic==70) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1315]
banco[(var_ocup==17|var_ocup==24) & (isic==60) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1314]
banco[(var_ocup==17|var_ocup==24) & (isic==50) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1313]
banco[(var_ocup==17|var_ocup==24) & (isic==20|isic==30|isic==40) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1312]
banco[(var_ocup==17|var_ocup==24) & (isic==100), isco := 1120]
banco[(var_ocup==17|var_ocup==24) & (isic==90) & (PosicaoOcup==1), isco := 1227]
banco[(var_ocup==17|var_ocup==24) & isic != 10 & PosicaoOcup==0, isco := 5220]
banco[(var_ocup==17|var_ocup==24) & isic == 10 & PosicaoOcup==0, isco := 6111]
banco[var_ocup == 232 & trtot >= 2 & PosicaoOcup == 1, isco := 3142]
banco[var_ocup == 42 & trtot < 4, isco := 4141]
banco[var_ocup == 471 & PosicaoOcup==1 & isic == 30, isco := 8263]
banco[(var_ocup==17|var_ocup==24) & (isic==80)& (PosicaoOcup==1), isco := 1226]
banco[var_ocup==34 & isic==100, isco := 3442]
banco[var_ocup==222 & isic!=10, isco := 9141]
banco[var_ocup==13 & PosicaoOcup == 2, isco := 1311]
banco[var_ocup==12 & PosicaoOcup == 2, isco := 1311]
banco[var_ocup==11 & PosicaoOcup == 2, isco := 1311]
banco[var_ocup == 925 & isic == 50 , isco := 7122]
banco[var_ocup == 925 & isic == 100 , isco := 5149]
banco[var_ocup == 925 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 923 & isic == 50 , isco := 7122]
banco[var_ocup == 923 & isic == 20, isco := 9311]
banco[var_ocup == 923 & isic == 100 , isco := 5149]
banco[var_ocup == 923 & isic == 10, isco := 9211]
banco[var_ocup == 922 & isic == 50 , isco := 7122]
banco[var_ocup == 922 & isic == 20, isco := 9311]
banco[var_ocup == 922 & isic == 10, isco := 9211]
banco[var_ocup == 823 & PosicaoOcup==1 & isic != 120 & trtot >=1, isco == 5139]
banco[(var_ocup==17|var_ocup==24) & (isic==70) & (PosicaoOcup==1), isco := 1225]
banco[(var_ocup==17|var_ocup==24) & (isic==60) & (PosicaoOcup==1), isco := 1224]
banco[(var_ocup==17|var_ocup==24) & (isic==50) & (PosicaoOcup==1), isco := 1223]
banco[(var_ocup==17|var_ocup==24) & (isic==20|isic==30|isic==40) & (PosicaoOcup==1), isco := 1222]
banco[isco==3431 & trtot >=5, isco := 2419]
banco[var_ocup == 15 & PosicaoOcup == 1 , isco := 5220]
}
if((tipo == "censo" & ano == 1980) | (tipo == "pnad" & (ano >= 1981 & ano <= 1990))){
if(!is.null(var_ocup2)){
banco$var_ocup[!is.na(var_ocup2)] <- var_ocup2[!is.na(var_ocup2)]
}
banco[var_ocup == 851, isco := 110]
banco[var_ocup == 852, isco := 110]
banco[var_ocup == 853, isco := 110]
banco[var_ocup == 20, isco := 1110]
banco[var_ocup == 21, isco := 1120]
banco[var_ocup == 6, isco := 1221]
banco[var_ocup == 30, isco := 1221]
banco[var_ocup == 31, isco := 1221]
banco[var_ocup == 7, isco := 1222]
banco[var_ocup == 8, isco := 1222]
banco[var_ocup == 32, isco := 1222]
banco[var_ocup == 33, isco := 1222]
banco[var_ocup == 9, isco := 1223]
banco[var_ocup == 34, isco := 1223]
banco[var_ocup == 10, isco := 1224]
banco[var_ocup == 35, isco := 1224]
banco[var_ocup == 11, isco := 1225]
banco[var_ocup == 36, isco := 1225]
banco[var_ocup == 12, isco := 1226]
banco[var_ocup == 37, isco := 1226]
banco[var_ocup == 13, isco := 1229]
banco[var_ocup == 38, isco := 1231]
banco[var_ocup == 39, isco := 1239]
banco[var_ocup == 601, isco := 1314]
banco[var_ocup == 801, isco := 1314]
banco[var_ocup == 811, isco := 1315]
banco[var_ocup == 40, isco := 1319]
banco[var_ocup == 123, isco := 2111]
banco[var_ocup == 125, isco := 2111]
banco[var_ocup == 121, isco := 2113]
banco[var_ocup == 171, isco := 2121]
banco[var_ocup == 172, isco := 2122]
banco[var_ocup == 173, isco := 2131]
banco[var_ocup == 102, isco := 2141]
banco[var_ocup == 101, isco := 2142]
banco[var_ocup == 124, isco := 2147]
banco[var_ocup == 103, isco := 2148]
banco[var_ocup == 104, isco := 2148]
banco[var_ocup == 142, isco := 2211]
banco[var_ocup == 143, isco := 2212]
banco[var_ocup == 141, isco := 2213]
banco[var_ocup == 151, isco := 2221]
banco[var_ocup == 152, isco := 2222]
banco[var_ocup == 144, isco := 2223]
banco[var_ocup == 122, isco := 2224]
banco[var_ocup == 154, isco := 2229]
banco[var_ocup == 161, isco := 2229]
banco[var_ocup == 153, isco := 2230]
banco[var_ocup == 211, isco := 2310]
banco[var_ocup == 212, isco := 2310]
banco[var_ocup == 213, isco := 2320]
banco[var_ocup == 214, isco := 2331]
banco[var_ocup == 215, isco := 2331]
banco[var_ocup == 216, isco := 2331]
banco[var_ocup == 217, isco := 2332]
banco[var_ocup == 221, isco := 2351]
banco[var_ocup == 218, isco := 2359]
banco[var_ocup == 219, isco := 2359]
banco[var_ocup == 182, isco := 2411]
banco[var_ocup == 232, isco := 2421]
banco[var_ocup == 233, isco := 2421]
banco[var_ocup == 231, isco := 2422]
banco[var_ocup == 241, isco := 2429]
banco[var_ocup == 292, isco := 2431]
banco[var_ocup == 181, isco := 2441]
banco[var_ocup == 201, isco := 2442]
banco[var_ocup == 203, isco := 2443]
banco[var_ocup == 205, isco := 2443]
banco[var_ocup == 293, isco := 2444]
banco[var_ocup == 202, isco := 2445]
banco[var_ocup == 204, isco := 2446]
banco[var_ocup == 261, isco := 2451]
banco[var_ocup == 271, isco := 2452]
banco[var_ocup == 275, isco := 2453]
banco[var_ocup == 276, isco := 2455]
banco[var_ocup == 277, isco := 2455]
banco[var_ocup == 279, isco := 2455]
banco[var_ocup == 251, isco := 2460]
banco[var_ocup == 131, isco := 3111]
banco[var_ocup == 133, isco := 3111]
banco[var_ocup == 112, isco := 3112]
banco[var_ocup == 405, isco := 3113]
banco[var_ocup == 401, isco := 3117]
banco[var_ocup == 402, isco := 3117]
banco[var_ocup == 111, isco := 3118]
banco[var_ocup == 113, isco := 3119]
banco[var_ocup == 403, isco := 3119]
banco[var_ocup == 406, isco := 3119]
banco[var_ocup == 193, isco := 3122]
banco[var_ocup == 274, isco := 3131]
banco[var_ocup == 280, isco := 3131]
banco[var_ocup == 281, isco := 3131]
banco[var_ocup == 282, isco := 3132]
banco[var_ocup == 165, isco := 3133]
banco[var_ocup == 283, isco := 3139]
banco[var_ocup == 773, isco := 3139]
banco[var_ocup == 721, isco := 3142]
banco[var_ocup == 722, isco := 3142]
banco[var_ocup == 711, isco := 3143]
banco[var_ocup == 51, isco := 3152]
banco[var_ocup == 571, isco := 3152]
banco[var_ocup == 588, isco := 3152]
banco[var_ocup == 168, isco := 3211]
banco[var_ocup == 302, isco := 3212]
banco[var_ocup == 917, isco := 3222]
banco[var_ocup == 164, isco := 3224]
banco[var_ocup == 167, isco := 3225]
banco[var_ocup == 163, isco := 3226]
banco[var_ocup == 132, isco := 3228]
banco[var_ocup == 162, isco := 3231]
banco[var_ocup == 166, isco := 3232]
banco[var_ocup == 222, isco := 3340]
banco[var_ocup == 641, isco := 3411]
banco[var_ocup == 643, isco := 3411]
banco[var_ocup == 642, isco := 3413]
banco[var_ocup == 631, isco := 3415]
banco[var_ocup == 632, isco := 3415]
banco[var_ocup == 633, isco := 3429]
banco[var_ocup == 646, isco := 3416]
banco[var_ocup == 644, isco := 3417]
banco[var_ocup == 645, isco := 3419]
banco[var_ocup == 183, isco := 3431]
banco[var_ocup == 242, isco := 3432]
banco[var_ocup == 243, isco := 3432]
banco[var_ocup == 244, isco := 3432]
banco[var_ocup == 192, isco := 3434]
banco[var_ocup == 191, isco := 3439]
banco[var_ocup == 50, isco := 3442]
banco[var_ocup == 918, isco := 3444]
banco[var_ocup == 854, isco := 3450]
banco[var_ocup == 855, isco := 3450]
banco[var_ocup == 858, isco := 3450]
banco[var_ocup == 273, isco := 3471]
banco[var_ocup == 278, isco := 3472]
banco[var_ocup == 831, isco := 3475]
banco[var_ocup == 832, isco := 3475]
banco[var_ocup == 833, isco := 3475]
banco[var_ocup == 834, isco := 3475]
banco[var_ocup == 56, isco := 4111]
banco[var_ocup == 57, isco := 4112]
banco[var_ocup == 58, isco := 4113]
banco[var_ocup == 59, isco := 4115]
banco[var_ocup == 52, isco := 4121]
banco[var_ocup == 53, isco := 4121]
banco[var_ocup == 60, isco := 4121]
banco[var_ocup == 64, isco := 4190]
banco[var_ocup == 65, isco := 4121]
banco[var_ocup == 54, isco := 4131]
banco[var_ocup == 55, isco := 4131]
banco[var_ocup == 741, isco := 4133]
banco[var_ocup == 761, isco := 4133]
banco[var_ocup == 62, isco := 2431]
banco[var_ocup == 291, isco := 2432]
banco[var_ocup == 771, isco := 4142]
banco[var_ocup == 772, isco := 4142]
banco[var_ocup == 775, isco := 4142]
banco[var_ocup == 61, isco := 4141]
banco[var_ocup == 603, isco := 4211]
banco[var_ocup == 63, isco := 4222]
banco[var_ocup == 774, isco := 4223]
banco[var_ocup == 712, isco := 5111]
banco[var_ocup == 752, isco := 5112]
banco[var_ocup == 813, isco := 5122]
banco[var_ocup == 814, isco := 5123]
banco[var_ocup == 815, isco := 5123]
banco[var_ocup == 821, isco := 5141]
banco[var_ocup == 822, isco := 5141]
banco[var_ocup == 823, isco := 5141]
banco[var_ocup == 824, isco := 5141]
banco[var_ocup == 856, isco := 5162]
banco[var_ocup == 857, isco := 5163]
banco[var_ocup == 859, isco := 5169]
banco[var_ocup == 602, isco := 5220]
banco[var_ocup == 605, isco := 5220]
banco[var_ocup == 1, isco := 6111]
banco[var_ocup == 301, isco := 6111]
banco[var_ocup == 335, isco := 6111]
banco[var_ocup == 914, isco := 3213]
banco[var_ocup == 919, isco := 6113]
banco[var_ocup == 2, isco := 6121]
banco[var_ocup == 3, isco := 6122]
banco[var_ocup == 4, isco := 6129]
banco[var_ocup == 5, isco := 6129]
banco[var_ocup == 331, isco := 6141]
banco[var_ocup == 332, isco := 6141]
banco[var_ocup == 334, isco := 6141]
banco[var_ocup == 336, isco := 6141]
banco[var_ocup == 333, isco := 6142]
banco[var_ocup == 322, isco := 6152]
banco[var_ocup == 321, isco := 6154]
banco[var_ocup == 341, isco := 7111]
banco[var_ocup == 345, isco := 7113]
banco[var_ocup == 578, isco := 7113]
banco[var_ocup == 512, isco := 7122]
banco[var_ocup == 513, isco := 7122]
banco[var_ocup == 519, isco := 7122]
banco[var_ocup == 511, isco := 7123]
banco[var_ocup == 482, isco := 7124]
banco[var_ocup == 404, isco := 7129]
banco[var_ocup == 516, isco := 7132]
banco[var_ocup == 520, isco := 7132]
banco[var_ocup == 515, isco := 7133]
banco[var_ocup == 518, isco := 7135]
banco[var_ocup == 517, isco := 7136]
banco[var_ocup == 913, isco := 7136]
banco[var_ocup == 514, isco := 7141]
banco[var_ocup == 581, isco := 7141]
banco[var_ocup == 915, isco := 7143]
banco[var_ocup == 414, isco := 7211]
banco[var_ocup == 426, isco := 7212]
banco[var_ocup == 428, isco := 7213]
banco[var_ocup == 430, isco := 7213]
banco[var_ocup == 427, isco := 7214]
banco[var_ocup == 429, isco := 7221]
banco[var_ocup == 418, isco := 7222]
banco[var_ocup == 423, isco := 7223]
banco[var_ocup == 416, isco := 7224]
banco[var_ocup == 417, isco := 7224]
banco[var_ocup == 424, isco := 7231]
banco[var_ocup == 431, isco := 7231]
banco[var_ocup == 425, isco := 7233]
banco[var_ocup == 921, isco := 7233]
banco[var_ocup == 493, isco := 7242]
banco[var_ocup == 495, isco := 7243]
banco[var_ocup == 497, isco := 7244]
banco[var_ocup == 776, isco := 7244]
banco[var_ocup == 496, isco := 7245]
banco[var_ocup == 498, isco := 7245]
banco[var_ocup == 572, isco := 7313]
banco[var_ocup == 573, isco := 7313]
banco[var_ocup == 562, isco := 7321]
banco[var_ocup == 564, isco := 7321]
banco[var_ocup == 561, isco := 7322]
banco[var_ocup == 563, isco := 7324]
banco[var_ocup == 272, isco := 7332]
banco[var_ocup == 447, isco := 7332]
banco[var_ocup == 461, isco := 7332]
banco[var_ocup == 462, isco := 7441]
banco[var_ocup == 475, isco := 7424]
banco[var_ocup == 490, isco := 7424]
banco[var_ocup == 551, isco := 7341]
banco[var_ocup == 552, isco := 7341]
banco[var_ocup == 553, isco := 7343]
banco[var_ocup == 555, isco := 7343]
banco[var_ocup == 556, isco := 7345]
banco[var_ocup == 557, isco := 7346]
banco[var_ocup == 532, isco := 7411]
banco[var_ocup == 533, isco := 7411]
banco[var_ocup == 535, isco := 7412]
banco[var_ocup == 536, isco := 7412]
banco[var_ocup == 537, isco := 7412]
banco[var_ocup == 579, isco := 7416]
banco[var_ocup == 580, isco := 7416]
banco[var_ocup == 483, isco := 7421]
banco[var_ocup == 489, isco := 7421]
banco[var_ocup == 481, isco := 7422]
banco[var_ocup == 577, isco := 7424]
banco[var_ocup == 441, isco := 7431]
banco[var_ocup == 443, isco := 7431]
banco[var_ocup == 449, isco := 7432]
banco[var_ocup == 474, isco := 7432]
banco[var_ocup == 470, isco := 7433]
banco[var_ocup == 472, isco := 7433]
banco[var_ocup == 476, isco := 7433]
banco[var_ocup == 473, isco := 7435]
banco[var_ocup == 471, isco := 7436]
banco[var_ocup == 487, isco := 7437]
banco[var_ocup == 488, isco := 7437]
banco[var_ocup == 477, isco := 7442]
banco[var_ocup == 479, isco := 7442]
banco[var_ocup == 351, isco := 8111]
banco[var_ocup == 391, isco := 8113]
banco[var_ocup == 421, isco := 8113]
banco[var_ocup == 411, isco := 8122]
banco[var_ocup == 412, isco := 8122]
banco[var_ocup == 413, isco := 8124]
banco[var_ocup == 419, isco := 8124]
banco[var_ocup == 485, isco := 8141]
banco[var_ocup == 486, isco := 8141]
banco[var_ocup == 361, isco := 8155]
banco[var_ocup == 576, isco := 8159]
banco[var_ocup == 499, isco := 8161]
banco[var_ocup == 723, isco := 8162]
banco[var_ocup == 724, isco := 8162]
banco[var_ocup == 744, isco := 8162]
banco[var_ocup == 922, isco := 8163]
banco[var_ocup == 420, isco := 8211]
banco[var_ocup == 422, isco := 8211]
banco[var_ocup == 587, isco := 8212]
banco[var_ocup == 415, isco := 8223]
banco[var_ocup == 574, isco := 8231]
banco[var_ocup == 575, isco := 8231]
banco[var_ocup == 586, isco := 8231]
banco[var_ocup == 484, isco := 8240]
banco[var_ocup == 554, isco := 8251]
banco[var_ocup == 585, isco := 8253]
banco[var_ocup == 442, isco := 8261]
banco[var_ocup == 444, isco := 8262]
banco[var_ocup == 445, isco := 8262]
banco[var_ocup == 448, isco := 8262]
banco[var_ocup == 450, isco := 8264]
banco[var_ocup == 451, isco := 8264]
banco[var_ocup == 478, isco := 8266]
banco[var_ocup == 446, isco := 8269]
banco[var_ocup == 452, isco := 8269]
banco[var_ocup == 531, isco := 8271]
banco[var_ocup == 542, isco := 8271]
banco[var_ocup == 534, isco := 8272]
banco[var_ocup == 538, isco := 8273]
banco[var_ocup == 545, isco := 8273]
banco[var_ocup == 544, isco := 8275]
banco[var_ocup == 539, isco := 8276]
banco[var_ocup == 541, isco := 8277]
banco[var_ocup == 543, isco := 8277]
banco[var_ocup == 540, isco := 8278]
banco[var_ocup == 491, isco := 8282]
banco[var_ocup == 492, isco := 8283]
banco[var_ocup == 494, isco := 8283]
banco[var_ocup == 583, isco := 8290]
banco[var_ocup == 589, isco := 8290]
banco[var_ocup == 923, isco := 8290]
banco[var_ocup == 742, isco := 8311]
banco[var_ocup == 743, isco := 8311]
banco[var_ocup == 745, isco := 8312]
banco[var_ocup == 746, isco := 8312]
banco[var_ocup == 751, isco := 8322]
banco[var_ocup == 303, isco := 8331]
banco[var_ocup == 521, isco := 8332]
banco[var_ocup == 731, isco := 8333]
banco[var_ocup == 582, isco := 8334]
banco[var_ocup == 725, isco := 8340]
banco[var_ocup == 726, isco := 8340]
banco[var_ocup == 727, isco := 8340]
banco[var_ocup == 611, isco := 9111]
banco[var_ocup == 612, isco := 9111]
banco[var_ocup == 613, isco := 9111]
banco[var_ocup == 614, isco := 9111]
banco[var_ocup == 615, isco := 9111]
banco[var_ocup == 617, isco := 9112]
banco[var_ocup == 621, isco := 9112]
banco[var_ocup == 826, isco := 9120]
banco[var_ocup == 916, isco := 9120]
banco[var_ocup == 805, isco := 9131]
banco[var_ocup == 825, isco := 9131]
banco[var_ocup == 812, isco := 9132]
banco[var_ocup == 844, isco := 9141]
banco[var_ocup == 842, isco := 9151]
banco[var_ocup == 845, isco := 9151]
banco[var_ocup == 841, isco := 9141]
banco[var_ocup == 843, isco := 9152]
banco[var_ocup == 912, isco := 9153]
banco[var_ocup == 616, isco := 9153]
banco[var_ocup == 920, isco := 9161]
banco[var_ocup == 304, isco := 9211]
banco[var_ocup == 926, isco := 9333]
banco[var_ocup == 381, isco := 9311]
banco[var_ocup == 371, isco := 9311]
banco[var_ocup == 762, isco := 9312]
banco[var_ocup == 925, isco := 9312]
banco[var_ocup == 911, isco := 9321]
banco[var_ocup == 584, isco := 9322]
banco[var_ocup == 753, isco := 9332]
banco[var_ocup == 604, isco := 9333]
banco[var_ocup == 732, isco := 9333]
banco[var_ocup == 924, isco := 9333]
banco[var_ocup == 927, isco := NA]
banco[var_ocup == 5 & PosicaoOcup==2, isco := 1311]
banco[var_ocup == 4 & PosicaoOcup==2, isco := 1311]
banco[var_ocup == 3 & PosicaoOcup==2, isco := 1311]
banco[var_ocup == 2 & PosicaoOcup==2, isco := 1311]
banco[var_ocup == 1 & PosicaoOcup==2, isco := 1311]
banco[var_ocup == 154 & trtot < 6, isco := 3241]
banco[var_ocup == 919 & isic != 10, isco := 9141]
banco[var_ocup == 927 & isic == 50, isco := 7122]
banco[var_ocup == 927 & isic == 100, isco := 5149]
banco[var_ocup == 927 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 926 & isic == 50, isco := 7122]
banco[var_ocup == 926 & isic == 20, isco := 9311]
banco[var_ocup == 926 & isic == 100, isco := 5149]
banco[var_ocup == 926 & isic == 10, isco := 9211]
banco[var_ocup == 924 & isic == 20, isco := 9311]
banco[var_ocup == 924 & isic == 10, isco := 9211]
banco[var_ocup == 825 & PosicaoOcup==1 & isic != 120 & trtot >=1, isco == 5139]
banco[var_ocup == 470 & PosicaoOcup==1 & isic == 30, isco := 8263]
banco[var_ocup == 322 & trtot >= 2 & PosicaoOcup == 1, isco :=3142]
banco[var_ocup == 291 & trtot < 4, isco := 4141]
banco[var_ocup == 852, isco := 5123]
banco[var_ocup == 811, isco := 5123]
banco[var_ocup == 10 & PosicaoOcup==1, isco := 5220]
banco[var_ocup == 852 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco := 1314]
banco[var_ocup == 811 & ((PosicaoOcup == 3 & isic == 70) | PosicaoOcup == 2), isco := 1315]
banco[var_ocup == 601, isco := 5220]
banco[var_ocup == 601 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco := 1314]
banco[isco == 3431 & trtot >=5, isco := 2419]
banco[isco == 6154 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6153 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6152 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6151 & PosicaoOcup == 1, isco := 9213]
banco[isco == 6142 & PosicaoOcup == 1, isco := 9212]
banco[isco == 6141 & PosicaoOcup == 1, isco := 9212]
banco[isco == 6122 & PosicaoOcup == 1, isco := 9211]
banco[isco == 6121 & PosicaoOcup == 1, isco := 9211]
}
if((tipo == "censo" & ano == 1991) | (tipo == "pnad" & (ano >= 1992 & ano <= 2001))){
banco[var_ocup ==1, isco := 6111]
banco[var_ocup ==10, isco := 1224]
banco[var_ocup ==101, isco := 2142]
banco[var_ocup ==102, isco := 2141]
banco[var_ocup ==103, isco := 2148]
banco[var_ocup ==104, isco := 2148]
banco[var_ocup ==11, isco := 1225]
banco[var_ocup ==111, isco := 3118]
banco[var_ocup ==112, isco := 3112]
banco[var_ocup ==113, isco := 3119]
banco[var_ocup ==12, isco := 1226]
banco[var_ocup ==121, isco := 2113]
banco[var_ocup ==122, isco := 2224]
banco[var_ocup ==123, isco := 2111]
banco[var_ocup ==124, isco := 2147]
banco[var_ocup ==125, isco := 2111]
banco[var_ocup ==13, isco := 9112]
banco[var_ocup ==131, isco := 3111]
banco[var_ocup ==132, isco := 3228]
banco[var_ocup ==133, isco := 3111]
banco[var_ocup ==14, isco := 9111]
banco[var_ocup ==141, isco := 2213]
banco[var_ocup ==142, isco := 2211]
banco[var_ocup ==143, isco := 2212]
banco[var_ocup ==144, isco := 2223]
banco[var_ocup ==15, isco := 1229]
banco[var_ocup ==151, isco := 2221]
banco[var_ocup ==152, isco := 2222]
banco[var_ocup ==153, isco := 2230]
banco[var_ocup ==154, isco := 2229]
banco[var_ocup ==161, isco := 2229]
banco[var_ocup ==162, isco := 3231]
banco[var_ocup ==163, isco := 3226]
banco[var_ocup ==164, isco := 3224]
banco[var_ocup ==165, isco := 3133]
banco[var_ocup ==166, isco := 3232]
banco[var_ocup ==167, isco := 3225]
banco[var_ocup ==168, isco := 3211]
banco[var_ocup ==171, isco := 2121]
banco[var_ocup ==172, isco := 2122]
banco[var_ocup ==173, isco := 2131]
banco[var_ocup ==181, isco := 2441]
banco[var_ocup ==182, isco := 2411]
banco[var_ocup ==183, isco := 3431]
banco[var_ocup ==191, isco := 3439]
banco[var_ocup ==192, isco := 3434]
banco[var_ocup ==193, isco := 4143]
banco[var_ocup ==194, isco := 3122]
banco[var_ocup ==2, isco := 6121]
banco[var_ocup ==20, isco := 1110]
banco[var_ocup ==201, isco := 2442]
banco[var_ocup ==202, isco := 2445]
banco[var_ocup ==203, isco := 2443]
banco[var_ocup ==204, isco := 2446]
banco[var_ocup ==205, isco := 2443]
banco[var_ocup ==21, isco := 1120]
banco[var_ocup ==211, isco := 2310]
banco[var_ocup ==212, isco := 2310]
banco[var_ocup ==213, isco := 2320]
banco[var_ocup ==214, isco := 2331]
banco[var_ocup ==215, isco := 2331]
banco[var_ocup ==216, isco := 2331]
banco[var_ocup ==217, isco := 2332]
banco[var_ocup ==218, isco := 2359]
banco[var_ocup ==219, isco := 2359]
banco[var_ocup ==221, isco := 2351]
banco[var_ocup ==222, isco := 3340]
banco[var_ocup ==231, isco := 2422]
banco[var_ocup ==232, isco := 2421]
banco[var_ocup ==233, isco := 2421]
banco[var_ocup ==241, isco := 2429]
banco[var_ocup ==242, isco := 3432]
banco[var_ocup ==243, isco := 3432]
banco[var_ocup ==244, isco := 3432]
banco[var_ocup ==251, isco := 2460]
banco[var_ocup ==252, isco := 3242]
banco[var_ocup ==261, isco := 2451]
banco[var_ocup ==271, isco := 2452]
banco[var_ocup ==272, isco := 7332]
banco[var_ocup ==273, isco := 3471]
banco[var_ocup ==274, isco := 3131]
banco[var_ocup ==275, isco := 2453]
banco[var_ocup ==276, isco := 2455]
banco[var_ocup ==277, isco := 2455]
banco[var_ocup ==278, isco := 3472]
banco[var_ocup ==279, isco := 2455]
banco[var_ocup ==280, isco := 3131]
banco[var_ocup ==281, isco := 3131]
banco[var_ocup ==282, isco := 3132]
banco[var_ocup ==283, isco := 3139]
banco[var_ocup ==291, isco := 2432]
banco[var_ocup ==292, isco := 2431]
banco[var_ocup ==293, isco := 2444]
banco[var_ocup ==3, isco := 6122]
banco[var_ocup ==30, isco := 1221]
banco[var_ocup ==301, isco := 6111]
banco[var_ocup ==302, isco := 3212]
banco[var_ocup ==303, isco := 8331]
banco[var_ocup ==304, isco := 9211]
banco[var_ocup ==305, isco := 9211]
banco[var_ocup ==31, isco := 1221]
banco[var_ocup ==32, isco := 1222]
banco[var_ocup ==321, isco := 6154]
banco[var_ocup ==322, isco := 6152]
banco[var_ocup ==33, isco := 1222]
banco[var_ocup ==331, isco := 6141]
banco[var_ocup ==332, isco := 6141]
banco[var_ocup ==333, isco := 6142]
banco[var_ocup ==334, isco := 6141]
banco[var_ocup ==335, isco := 6111]
banco[var_ocup ==336, isco := 6141]
banco[var_ocup ==34, isco := 1223]
banco[var_ocup ==341, isco := 7111]
banco[var_ocup ==345, isco := 7113]
banco[var_ocup ==35, isco := 1224]
banco[var_ocup ==351, isco := 8111]
banco[var_ocup ==36, isco := 1225]
banco[var_ocup ==361, isco := 8155]
banco[var_ocup ==37, isco := 1226]
banco[var_ocup ==371, isco := 9311]
banco[var_ocup ==38, isco := 1231]
banco[var_ocup ==381, isco := 9311]
banco[var_ocup ==39, isco := 1239]
banco[var_ocup ==391, isco := 8113]
banco[var_ocup ==4, isco := 6129]
banco[var_ocup ==40, isco := 1319]
banco[var_ocup ==401, isco := 3117]
banco[var_ocup ==402, isco := 3117]
banco[var_ocup ==403, isco := 3119]
banco[var_ocup ==404, isco := 7129]
banco[var_ocup ==405, isco := 3113]
banco[var_ocup ==406, isco := 3119]
banco[var_ocup ==411, isco := 8122]
banco[var_ocup ==412, isco := 8122]
banco[var_ocup ==413, isco := 8124]
banco[var_ocup ==414, isco := 7211]
banco[var_ocup ==415, isco := 8223]
banco[var_ocup ==416, isco := 7224]
banco[var_ocup ==417, isco := 7224]
banco[var_ocup ==418, isco := 7222]
banco[var_ocup ==419, isco := 8124]
banco[var_ocup ==420, isco := 8211]
banco[var_ocup ==421, isco := 8113]
banco[var_ocup ==422, isco := 8211]
banco[var_ocup ==423, isco := 7223]
banco[var_ocup ==424, isco := 7231]
banco[var_ocup ==425, isco := 7233]
banco[var_ocup ==426, isco := 7212]
banco[var_ocup ==427, isco := 7214]
banco[var_ocup ==428, isco := 7213]
banco[var_ocup ==429, isco := 7221]
banco[var_ocup ==430, isco := 7213]
banco[var_ocup ==431, isco := 7231]
banco[var_ocup ==441, isco := 7431]
banco[var_ocup ==442, isco := 8261]
banco[var_ocup ==443, isco := 7431]
banco[var_ocup ==444, isco := 8262]
banco[var_ocup ==445, isco := 8262]
banco[var_ocup ==446, isco := 8269]
banco[var_ocup ==447, isco := 7332]
banco[var_ocup ==448, isco := 8262]
banco[var_ocup ==449, isco := 7432]
banco[var_ocup ==450, isco := 8264]
banco[var_ocup ==451, isco := 8264]
banco[var_ocup ==452, isco := 8269]
banco[var_ocup ==461, isco := 7332]
banco[var_ocup ==462, isco := 7441]
banco[var_ocup ==470, isco := 7433]
banco[var_ocup ==471, isco := 7436]
banco[var_ocup ==472, isco := 7433]
banco[var_ocup ==473, isco := 7435]
banco[var_ocup ==474, isco := 7432]
banco[var_ocup ==475, isco := 7424]
banco[var_ocup ==476, isco := 7433]
banco[var_ocup ==477, isco := 7442]
banco[var_ocup ==478, isco := 8266]
banco[var_ocup ==479, isco := 7442]
banco[var_ocup ==481, isco := 7422]
banco[var_ocup ==482, isco := 7124]
banco[var_ocup ==483, isco := 7421]
banco[var_ocup ==484, isco := 8240]
banco[var_ocup ==485, isco := 8141]
banco[var_ocup ==486, isco := 8141]
banco[var_ocup ==487, isco := 7437]
banco[var_ocup ==488, isco := 7437]
banco[var_ocup ==489, isco := 7421]
banco[var_ocup ==490, isco := 7424]
banco[var_ocup ==5, isco := 6129]
banco[var_ocup ==50, isco := 3442]
banco[var_ocup ==501, isco := 8282]
banco[var_ocup ==502, isco := 8283]
banco[var_ocup ==503, isco := 7242]
banco[var_ocup ==504, isco := 8283]
banco[var_ocup ==505, isco := 7243]
banco[var_ocup ==506, isco := 7245]
banco[var_ocup ==507, isco := 7244]
banco[var_ocup ==508, isco := 7245]
banco[var_ocup ==509, isco := 8161]
banco[var_ocup ==51, isco := 3152]
banco[var_ocup ==511, isco := 7123]
banco[var_ocup ==512, isco := 7122]
banco[var_ocup ==513, isco := 7122]
banco[var_ocup ==514, isco := 7141]
banco[var_ocup ==515, isco := 7133]
banco[var_ocup ==516, isco := 7132]
banco[var_ocup ==517, isco := 7136]
banco[var_ocup ==518, isco := 7135]
banco[var_ocup ==519, isco := 7122]
banco[var_ocup ==52, isco := 4121]
banco[var_ocup ==520, isco := 7132]
banco[var_ocup ==521, isco := 8332]
banco[var_ocup ==53, isco := 4121]
banco[var_ocup ==531, isco := 8271]
banco[var_ocup ==532, isco := 7411]
banco[var_ocup ==533, isco := 7411]
banco[var_ocup ==534, isco := 8272]
banco[var_ocup ==535, isco := 7412]
banco[var_ocup ==536, isco := 7412]
banco[var_ocup ==537, isco := 7412]
banco[var_ocup ==538, isco := 8273]
banco[var_ocup ==539, isco := 8276]
banco[var_ocup ==54, isco := 4131]
banco[var_ocup ==540, isco := 8278]
banco[var_ocup ==541, isco := 8277]
banco[var_ocup ==542, isco := 8271]
banco[var_ocup ==543, isco := 8277]
banco[var_ocup ==544, isco := 8275]
banco[var_ocup ==545, isco := 8273]
banco[var_ocup ==55, isco := 4131]
banco[var_ocup ==551, isco := 7341]
banco[var_ocup ==552, isco := 7341]
banco[var_ocup ==553, isco := 7343]
banco[var_ocup ==554, isco := 8251]
banco[var_ocup ==555, isco := 7343]
banco[var_ocup ==556, isco := 7345]
banco[var_ocup ==557, isco := 7346]
banco[var_ocup ==56, isco := 4111]
banco[var_ocup ==561, isco := 7322]
banco[var_ocup ==562, isco := 7321]
banco[var_ocup ==563, isco := 7324]
banco[var_ocup ==564, isco := 7321]
banco[var_ocup ==57, isco := 4112]
banco[var_ocup ==571, isco := 3152]
banco[var_ocup ==572, isco := 7313]
banco[var_ocup ==573, isco := 7313]
banco[var_ocup ==574, isco := 8231]
banco[var_ocup ==575, isco := 8231]
banco[var_ocup ==576, isco := 8159]
banco[var_ocup ==577, isco := 7424]
banco[var_ocup ==578, isco := 7113]
banco[var_ocup ==579, isco := 7416]
banco[var_ocup ==58, isco := 4113]
banco[var_ocup ==580, isco := 7416]
banco[var_ocup ==581, isco := 7141]
banco[var_ocup ==582, isco := 8334]
banco[var_ocup ==583, isco := 8290]
banco[var_ocup ==584, isco := 9322]
banco[var_ocup ==585, isco := 8253]
banco[var_ocup ==586, isco := 8231]
banco[var_ocup ==587, isco := 8212]
banco[var_ocup ==588, isco := 3152]
banco[var_ocup ==589, isco := 8290]
banco[var_ocup ==59, isco := 4115]
banco[var_ocup ==6, isco := 1221]
banco[var_ocup ==60, isco := 4121]
banco[var_ocup ==601, isco := 1314]
banco[var_ocup ==602, isco := 5220]
banco[var_ocup ==603, isco := 4211]
banco[var_ocup ==604, isco := 9333]
banco[var_ocup ==605, isco := 5220]
banco[var_ocup ==61, isco := 4141]
banco[var_ocup ==611, isco := 9111]
banco[var_ocup ==612, isco := 9111]
banco[var_ocup ==613, isco := 9111]
banco[var_ocup ==614, isco := 9111]
banco[var_ocup ==615, isco := 9111]
banco[var_ocup ==616, isco := 9153]
banco[var_ocup ==617, isco := 9112]
banco[var_ocup ==62, isco := 2431]
banco[var_ocup ==621, isco := 9112]
banco[var_ocup ==63, isco := 4222]
banco[var_ocup ==631, isco := 3415]
banco[var_ocup ==632, isco := 3415]
banco[var_ocup ==633, isco := 3429]
banco[var_ocup ==64, isco := 4190]
banco[var_ocup ==641, isco := 3411]
banco[var_ocup ==642, isco := 3413]
banco[var_ocup ==643, isco := 3411]
banco[var_ocup ==644, isco := 3417]
banco[var_ocup ==645, isco := 3419]
banco[var_ocup ==646, isco := 3416]
banco[var_ocup ==7, isco := 1222]
banco[var_ocup ==711, isco := 3143]
banco[var_ocup ==712, isco := 5111]
banco[var_ocup ==721, isco := 3142]
banco[var_ocup ==722, isco := 3142]
banco[var_ocup ==723, isco := 8162]
banco[var_ocup ==724, isco := 8162]
banco[var_ocup ==725, isco := 8340]
banco[var_ocup ==726, isco := 8340]
banco[var_ocup ==727, isco := 8340]
banco[var_ocup ==731, isco := 8333]
banco[var_ocup ==732, isco := 9333]
banco[var_ocup ==741, isco := 4133]
banco[var_ocup ==742, isco := 8311]
banco[var_ocup ==743, isco := 8311]
banco[var_ocup ==744, isco := 8162]
banco[var_ocup ==745, isco := 8312]
banco[var_ocup ==746, isco := 8312]
banco[var_ocup ==751, isco := 8322]
banco[var_ocup ==752, isco := 5112]
banco[var_ocup ==753, isco := 9332]
banco[var_ocup ==761, isco := 4133]
banco[var_ocup ==762, isco := 9312]
banco[var_ocup ==771, isco := 4142]
banco[var_ocup ==772, isco := 4142]
banco[var_ocup ==773, isco := 3139]
banco[var_ocup ==774, isco := 4223]
banco[var_ocup ==775, isco := 4142]
banco[var_ocup ==8, isco := 1222]
banco[var_ocup ==801, isco := 9131]
banco[var_ocup ==802, isco := 5131]
banco[var_ocup ==803, isco := 5122]
banco[var_ocup ==804, isco := 9131]
banco[var_ocup ==805, isco := 9131]
banco[var_ocup ==806, isco := 5121]
banco[var_ocup ==807, isco := 9131]
banco[var_ocup ==808, isco := 9131]
banco[var_ocup ==811, isco := 1315]
banco[var_ocup ==812, isco := 9132]
banco[var_ocup ==813, isco := 5122]
banco[var_ocup ==814, isco := 5123]
banco[var_ocup ==815, isco := 5123]
banco[var_ocup ==816, isco := 5121]
banco[var_ocup ==817, isco := 5123]
banco[var_ocup ==818, isco := 5123]
banco[var_ocup ==821, isco := 5141]
banco[var_ocup ==822, isco := 5141]
banco[var_ocup ==823, isco := 5141]
banco[var_ocup ==824, isco := 5141]
banco[var_ocup ==825, isco := 9131]
banco[var_ocup ==826, isco := 9120]
banco[var_ocup ==831, isco := 3475]
banco[var_ocup ==832, isco := 3475]
banco[var_ocup ==833, isco := 3475]
banco[var_ocup ==834, isco := 3475]
banco[var_ocup ==841, isco := 9141]
banco[var_ocup ==842, isco := 9151]
banco[var_ocup ==843, isco := 9152]
banco[var_ocup ==844, isco := 9141]
banco[var_ocup ==845, isco := 9151]
banco[var_ocup ==851, isco := 6111]
banco[var_ocup ==852, isco := 1314]
banco[var_ocup ==861, isco := 110]
banco[var_ocup ==862, isco := 110]
banco[var_ocup ==863, isco := 110]
banco[var_ocup ==864, isco := 3450]
banco[var_ocup ==865, isco := 3450]
banco[var_ocup ==866, isco := 5162]
banco[var_ocup ==867, isco := 5163]
banco[var_ocup ==868, isco := 3450]
banco[var_ocup ==869, isco := 5169]
banco[var_ocup ==9, isco := 1223]
banco[var_ocup ==911, isco := 9321]
banco[var_ocup ==912, isco := 9153]
banco[var_ocup ==913, isco := 7136]
banco[var_ocup ==914, isco := 3213]
banco[var_ocup ==915, isco := 7143]
banco[var_ocup ==916, isco := 9120]
banco[var_ocup ==917, isco := 3222]
banco[var_ocup ==918, isco := 3444]
banco[var_ocup ==919, isco := 6113]
banco[var_ocup ==920, isco := 9161]
banco[var_ocup ==921, isco := 7233]
banco[var_ocup ==922, isco := 8163]
banco[var_ocup ==923, isco := 8290]
banco[var_ocup ==924, isco := 9333]
banco[var_ocup ==925, isco := 9312]
banco[var_ocup ==926, isco := 5131]
banco[var_ocup ==927, isco := 9333]
banco[var_ocup ==928, isco := NA]
banco[isco ==6121 & PosicaoOcup == 1, isco :=9211]
banco[isco ==6122 & PosicaoOcup == 1, isco :=9211]
banco[isco ==6141 & PosicaoOcup == 1, isco :=9212]
banco[isco ==6142 & PosicaoOcup == 1, isco :=9212]
banco[isco ==6151 & PosicaoOcup == 1, isco :=9213]
banco[isco ==6152 & PosicaoOcup == 1, isco :=9213]
banco[isco ==6153 & PosicaoOcup == 1, isco :=9213]
banco[isco ==6154 & PosicaoOcup == 1, isco :=9213]
banco[isco == 2131 & trtot < 5 , isco :=3121]
banco[isco==3431 & trtot >=5, isco :=2419]
banco[var_ocup == 601 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco :=1314]
banco[var_ocup == 601, isco :=5220]
banco[var_ocup == 811 & ((PosicaoOcup == 3 & isic == 70) | PosicaoOcup == 2), isco :=1315]
banco[var_ocup == 811, isco :=5123]
banco[var_ocup == 825 & PosicaoOcup==1 & isic != 120 & trtot >=1, isco == 5139]
banco[var_ocup == 852 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco :=1314]
banco[var_ocup == 852, isco :=5123]
banco[var_ocup == 291 & trtot < 4, isco :=4141]
banco[var_ocup == 322 & trtot >= 2 & PosicaoOcup == 1, isco:=3142]
banco[var_ocup == 470 & PosicaoOcup==1 & isic == 30, isco :=8263]
banco[var_ocup == 924 & isic == 10, isco :=9211]
banco[var_ocup == 927 & isic == 10 & trtot <=1 , isco :=9211]
banco[var_ocup == 927 & isic == 100 , isco :=5149]
banco[var_ocup == 927 & isic == 20 & trtot <=1 , isco :=9311]
banco[var_ocup == 927 & isic == 50 , isco :=7122]
banco[var_ocup == 928 & isic == 10 & trtot <= 1, isco :=9211]
banco[var_ocup == 928 & isic == 100 , isco :=5149]
banco[var_ocup == 928 & isic == 20 & trtot <= 1, isco :=9311]
banco[var_ocup == 928 & isic == 50 , isco :=7122]
banco[var_ocup==919 & isic!=10, isco :=9141]
banco[var_ocup == 154 & trtot < 6, isco :=3241]
banco[var_ocup==1 & PosicaoOcup==2, isco :=1311]
banco[var_ocup==2 & PosicaoOcup==2, isco :=1311]
banco[var_ocup==3 & PosicaoOcup==2, isco :=1311]
banco[var_ocup==4 & PosicaoOcup==2, isco :=1311]
banco[var_ocup==5 & PosicaoOcup==2, isco :=1311]
banco[var_ocup== 10 & PosicaoOcup==1, isco :=5220]
}
if((tipo == "censo" & ano == 2000) | (tipo == "pnad" & (ano >= 2002 & ano <= 2013))){
banco[var_ocup == 5198, isco :=NA]
banco[var_ocup == 9999, isco :=NA]
banco[var_ocup == 9998, isco :=NA]
banco[var_ocup == 9988, isco :=NA]
banco[var_ocup == 0, isco :=NA]
banco[var_ocup == 100, isco :=110]
banco[var_ocup == 200, isco :=110]
banco[var_ocup == 300, isco :=110]
banco[var_ocup == 401, isco :=110]
banco[var_ocup == 402, isco :=110]
banco[var_ocup == 403, isco :=110]
banco[var_ocup == 411, isco :=110]
banco[var_ocup == 412, isco :=110]
banco[var_ocup == 413, isco :=110]
banco[var_ocup == 501, isco :=110]
banco[var_ocup == 502, isco :=110]
banco[var_ocup == 503, isco :=110]
banco[var_ocup == 511, isco :=110]
banco[var_ocup == 512, isco :=110]
banco[var_ocup == 513, isco :=110]
banco[var_ocup == 5171, isco :=110]
banco[var_ocup == 1111, isco :=1110]
banco[var_ocup == 1113, isco :=1110]
banco[var_ocup == 1130, isco :=1110]
banco[var_ocup == 1112, isco :=1120]
banco[var_ocup == 1122, isco :=1120]
banco[var_ocup == 1123, isco :=1120]
banco[var_ocup == 1140, isco :=1143]
banco[var_ocup == 1210, isco :=1210]
banco[var_ocup == 1219, isco :=1210]
banco[var_ocup == 1220, isco :=1229]
banco[var_ocup == 1230, isco :=1229]
banco[var_ocup == 1310, isco :=1229]
banco[var_ocup == 1320, isco :=1229]
banco[var_ocup == 2131, isco :=2111]
banco[var_ocup == 2133, isco :=2112]
banco[var_ocup == 2012, isco :=2112]
banco[var_ocup == 2132, isco :=2113]
banco[var_ocup == 2134, isco :=2114]
banco[var_ocup == 2111, isco :=2121]
banco[var_ocup == 2112, isco :=2122]
banco[var_ocup == 2121, isco :=2131]
banco[var_ocup == 2122, isco :=2131]
banco[var_ocup == 2123, isco :=2131]
banco[var_ocup == 2124, isco :=2131]
banco[var_ocup == 2125, isco :=2131]
banco[var_ocup == 2141, isco :=2141]
banco[var_ocup == 2142, isco :=2142]
banco[var_ocup == 2021, isco :=2143]
banco[var_ocup == 2143, isco :=2143]
banco[var_ocup == 2144, isco :=2145]
banco[var_ocup == 2145, isco :=2146]
banco[var_ocup == 2140, isco :=2147]
banco[var_ocup == 2146, isco :=2147]
banco[var_ocup == 2147, isco :=2147]
banco[var_ocup == 2148, isco :=2148]
banco[var_ocup == 2149, isco :=2149]
banco[var_ocup == 2011, isco :=2211]
banco[var_ocup == 2211, isco :=2211]
banco[var_ocup == 2221, isco :=2213]
banco[var_ocup == 2231, isco :=2221]
banco[var_ocup == 2232, isco :=2222]
banco[var_ocup == 2233, isco :=2223]
banco[var_ocup == 2234, isco :=2224]
banco[var_ocup == 2237, isco :=2229]
banco[var_ocup == 2235, isco :=2230]
banco[var_ocup == 2340, isco :=2310]
banco[var_ocup == 2321, isco :=2320]
banco[var_ocup == 2391, isco :=2320]
banco[var_ocup == 2312, isco :=2331]
banco[var_ocup == 2313, isco :=2331]
banco[var_ocup == 3312, isco :=2331]
banco[var_ocup == 3321, isco :=2331]
banco[var_ocup == 2311, isco :=2332]
banco[var_ocup == 3311, isco :=2332]
banco[var_ocup == 2394, isco :=2351]
banco[var_ocup == 2330, isco :=2359]
banco[var_ocup == 2392, isco :=2359]
banco[var_ocup == 3313, isco :=2359]
banco[var_ocup == 3322, isco :=2359]
banco[var_ocup == 3331, isco :=2359]
banco[var_ocup == 2522, isco :=2411]
banco[var_ocup == 2531, isco :=2419]
banco[var_ocup == 2410, isco :=2421]
banco[var_ocup == 2421, isco :=2422]
banco[var_ocup == 2412, isco :=2421]
banco[var_ocup == 2419, isco :=2421]
banco[var_ocup == 2422, isco :=2421]
banco[var_ocup == 2613, isco :=2431]
banco[var_ocup == 3712, isco :=2431]
banco[var_ocup == 2512, isco :=2441]
banco[var_ocup == 2511, isco :=2442]
banco[var_ocup == 2513, isco :=2443]
banco[var_ocup == 2514, isco :=2443]
banco[var_ocup == 2614, isco :=2444]
banco[var_ocup == 2515, isco :=2445]
banco[var_ocup == 2516, isco :=2446]
banco[var_ocup == 2611, isco :=2451]
banco[var_ocup == 2612, isco :=2451]
banco[var_ocup == 2615, isco :=2451]
banco[var_ocup == 2616, isco :=2451]
banco[var_ocup == 2625, isco :=2452]
banco[var_ocup == 2624, isco :=2453]
banco[var_ocup == 3762, isco :=2453]
banco[var_ocup == 2621, isco :=2455]
banco[var_ocup == 2622, isco :=2455]
banco[var_ocup == 2623, isco :=2455]
banco[var_ocup == 3761, isco :=2455]
banco[var_ocup == 3763, isco :=2455]
banco[var_ocup == 3764, isco :=2455]
banco[var_ocup == 2631, isco :=2460]
banco[var_ocup == 3011, isco :=3111]
banco[var_ocup == 3111, isco :=3111]
banco[var_ocup == 3112, isco :=3111]
banco[var_ocup == 3113, isco :=3111]
banco[var_ocup == 3114, isco :=3111]
banco[var_ocup == 3116, isco :=3111]
banco[var_ocup == 3117, isco :=3111]
banco[var_ocup == 3250, isco :=3111]
banco[var_ocup == 3252, isco :=3111]
banco[var_ocup == 8202, isco :=3111]
banco[var_ocup == 8401, isco :=3111]
banco[var_ocup == 3121, isco :=3112]
banco[var_ocup == 3122, isco :=3112]
banco[var_ocup == 3123, isco :=3112]
banco[var_ocup == 3131, isco :=3113]
banco[var_ocup == 3001, isco :=3114]
banco[var_ocup == 3003, isco :=3114]
banco[var_ocup == 3134, isco :=3114]
banco[var_ocup == 3135, isco :=3114]
banco[var_ocup == 7301, isco :=3114]
banco[var_ocup == 3136, isco :=3115]
banco[var_ocup == 3141, isco :=3115]
banco[var_ocup == 7201, isco :=3115]
banco[var_ocup == 7202, isco :=3115]
banco[var_ocup == 8201, isco :=3115]
banco[var_ocup == 8181, isco :=3116]
banco[var_ocup == 3146, isco :=3117]
banco[var_ocup == 3147, isco :=3117]
banco[var_ocup == 3161, isco :=3117]
banco[var_ocup == 3162, isco :=3117]
banco[var_ocup == 3163, isco :=3117]
banco[var_ocup == 7101, isco :=3117]
banco[var_ocup == 3189, isco :=3118]
banco[var_ocup == 3713, isco :=3118]
banco[var_ocup == 7606, isco :=3118]
banco[var_ocup == 3421, isco :=3119]
banco[var_ocup == 3911, isco :=3119]
banco[var_ocup == 7610, isco :=3119]
banco[var_ocup == 3171, isco :=3122]
banco[var_ocup == 3172, isco :=3122]
banco[var_ocup == 3721, isco :=3131]
banco[var_ocup == 3722, isco :=3131]
banco[var_ocup == 3731, isco :=3131]
banco[var_ocup == 3732, isco :=3131]
banco[var_ocup == 3741, isco :=3131]
banco[var_ocup == 3742, isco :=3131]
banco[var_ocup == 3743, isco :=3131]
banco[var_ocup == 3723, isco :=3132]
banco[var_ocup == 3241, isco :=3133]
banco[var_ocup == 2152, isco :=3141]
banco[var_ocup == 3426, isco :=3141]
banco[var_ocup == 2151, isco :=3142]
banco[var_ocup == 3412, isco :=3142]
banco[var_ocup == 3413, isco :=3142]
banco[var_ocup == 2153, isco :=3143]
banco[var_ocup == 3411, isco :=3143]
banco[var_ocup == 3425, isco :=3144]
banco[var_ocup == 3516, isco :=3152]
banco[var_ocup == 3523, isco :=3152]
banco[var_ocup == 3524, isco :=3152]
banco[var_ocup == 3525, isco :=3152]
banco[var_ocup == 3912, isco :=3152]
banco[var_ocup == 3012, isco :=3211]
banco[var_ocup == 3201, isco :=3211]
banco[var_ocup == 3242, isco :=3211]
banco[var_ocup == 3253, isco :=3211]
banco[var_ocup == 3522, isco :=5139]
banco[var_ocup == 5152, isco :=3211]
banco[var_ocup == 3115, isco :=3212]
banco[var_ocup == 3210, isco :=3212]
banco[var_ocup == 3211, isco :=3212]
banco[var_ocup == 3212, isco :=3212]
banco[var_ocup == 3213, isco :=3212]
banco[var_ocup == 3214, isco :=3212]
banco[var_ocup == 3223, isco :=3224]
banco[var_ocup == 3224, isco :=3225]
banco[var_ocup == 2236, isco :=3226]
banco[var_ocup == 3221, isco :=3226]
banco[var_ocup == 3225, isco :=3226]
banco[var_ocup == 3231, isco :=3227]
banco[var_ocup == 3232, isco :=3227]
banco[var_ocup == 3251, isco :=3228]
banco[var_ocup == 3222, isco :=3231]
banco[var_ocup == 5151, isco :=3232]
banco[var_ocup == 3341, isco :=3340]
banco[var_ocup == 3517, isco :=3411]
banco[var_ocup == 3531, isco :=3411]
banco[var_ocup == 3545, isco :=3411]
banco[var_ocup == 3547, isco :=3411]
banco[var_ocup == 3546, isco :=3413]
banco[var_ocup == 3541, isco :=3415]
banco[var_ocup == 3543, isco :=3415]
banco[var_ocup == 3548, isco :=3415]
banco[var_ocup == 3542, isco :=3416]
banco[var_ocup == 3544, isco :=3417]
banco[var_ocup == 3422, isco :=3422]
banco[var_ocup == 2524, isco :=2412]
banco[var_ocup == 2521, isco :=2419]
banco[var_ocup == 2523, isco :=3431]
banco[var_ocup == 2525, isco :=2419]
banco[var_ocup == 3513, isco :=3431]
banco[var_ocup == 3514, isco :=3432]
banco[var_ocup == 3511, isco :=3433]
banco[var_ocup == 3512, isco :=3434]
banco[var_ocup == 3711, isco :=2432]
banco[var_ocup == 3515, isco :=3449]
banco[var_ocup == 2423, isco :=3450]
banco[var_ocup == 3518, isco :=3450]
banco[var_ocup == 2627, isco :=3471]
banco[var_ocup == 3191, isco :=3471]
banco[var_ocup == 3192, isco :=3471]
banco[var_ocup == 3751, isco :=3471]
banco[var_ocup == 2617, isco :=3472]
banco[var_ocup == 3771, isco :=3475]
banco[var_ocup == 3772, isco :=3475]
banco[var_ocup == 3773, isco :=3475]
banco[var_ocup == 4122, isco :=4111]
banco[var_ocup == 4121, isco :=4115]
banco[var_ocup == 4201, isco :=3439]
banco[var_ocup == 3532, isco :=4121]
banco[var_ocup == 4101, isco :=3439]
banco[var_ocup == 4102, isco :=3439]
banco[var_ocup == 4110, isco :=4190]
banco[var_ocup == 4131, isco :=4121]
banco[var_ocup == 4132, isco :=4121]
banco[var_ocup == 4212, isco :=4121]
banco[var_ocup == 4241, isco :=4122]
banco[var_ocup == 4141, isco :=4131]
banco[var_ocup == 4142, isco :=4132]
banco[var_ocup == 3423, isco :=4133]
banco[var_ocup == 4231, isco :=3444]
banco[var_ocup == 4151, isco :=4141]
banco[var_ocup == 4152, isco :=4142]
banco[var_ocup == 4211, isco :=4211]
banco[var_ocup == 4213, isco :=4213]
banco[var_ocup == 4214, isco :=4215]
banco[var_ocup == 4221, isco :=4222]
banco[var_ocup == 4222, isco :=4223]
banco[var_ocup == 4223, isco :=4223]
banco[var_ocup == 5111, isco :=5111]
banco[var_ocup == 3424, isco :=5112]
banco[var_ocup == 5112, isco :=5112]
banco[var_ocup == 5114, isco :=5113]
banco[var_ocup == 5101, isco :=3439]
banco[var_ocup == 5131, isco :=5121]
banco[var_ocup == 5132, isco :=5122]
banco[var_ocup == 5134, isco :=5123]
banco[var_ocup == 5162, isco :=5133]
banco[var_ocup == 5102, isco :=5139]
banco[var_ocup == 5161, isco :=5141]
banco[var_ocup == 3281, isco :=5143]
banco[var_ocup == 5165, isco :=5143]
banco[var_ocup == 5166, isco :=5143]
banco[var_ocup == 5199, isco :=5149]
banco[var_ocup == 5167, isco :=5151]
banco[var_ocup == 5172, isco :=5162]
banco[var_ocup == 5173, isco :=5163]
banco[var_ocup == 5103, isco :=5169]
banco[var_ocup == 3765, isco :=5210]
banco[var_ocup == 5201, isco :=5220]
banco[var_ocup == 5211, isco :=5220]
banco[var_ocup == 6110, isco :=6111]
banco[var_ocup == 6129, isco :=6111]
banco[var_ocup == 6201, isco :=3213]
banco[var_ocup == 6139, isco :=6121]
banco[var_ocup == 6301, isco :=6141]
banco[var_ocup == 6329, isco :=6141]
banco[var_ocup == 6319, isco :=6154]
banco[var_ocup == 7111, isco :=7111]
banco[var_ocup == 7122, isco :=7113]
banco[var_ocup == 7152, isco :=7122]
banco[var_ocup == 7170, isco :=7122]
banco[var_ocup == 7153, isco :=7123]
banco[var_ocup == 7161, isco :=7123]
banco[var_ocup == 7155, isco :=7124]
banco[var_ocup == 7771, isco :=7124]
banco[var_ocup == 7772, isco :=7124]
banco[var_ocup == 7102, isco :=7129]
banco[var_ocup == 7162, isco :=7131]
banco[var_ocup == 7165, isco :=7132]
banco[var_ocup == 7164, isco :=7133]
banco[var_ocup == 7157, isco :=7134]
banco[var_ocup == 7163, isco :=7135]
banco[var_ocup == 7241, isco :=7136]
banco[var_ocup == 7156, isco :=7137]
banco[var_ocup == 7166, isco :=7141]
banco[var_ocup == 7233, isco :=7141]
banco[var_ocup == 9913, isco :=7141]
banco[var_ocup == 7223, isco :=7211]
banco[var_ocup == 7243, isco :=7212]
banco[var_ocup == 7244, isco :=7213]
banco[var_ocup == 7242, isco :=7214]
banco[var_ocup == 7246, isco :=7215]
banco[var_ocup == 7321, isco :=7215]
banco[var_ocup == 7817, isco :=7216]
banco[var_ocup == 7221, isco :=7221]
banco[var_ocup == 7211, isco :=7222]
banco[var_ocup == 3142, isco :=7223]
banco[var_ocup == 3144, isco :=7223]
banco[var_ocup == 7212, isco :=7223]
banco[var_ocup == 7250, isco :=7223]
banco[var_ocup == 7257, isco :=7223]
banco[var_ocup == 7214, isco :=7224]
banco[var_ocup == 3143, isco :=7231]
banco[var_ocup == 9102, isco :=7231]
banco[var_ocup == 9144, isco :=7231]
banco[var_ocup == 9193, isco :=7231]
banco[var_ocup == 9502, isco :=7231]
banco[var_ocup == 9141, isco :=7232]
banco[var_ocup == 9142, isco :=7232]
banco[var_ocup == 9101, isco :=7233]
banco[var_ocup == 9109, isco :=7233]
banco[var_ocup == 9111, isco :=7233]
banco[var_ocup == 9112, isco :=7233]
banco[var_ocup == 9113, isco :=7233]
banco[var_ocup == 9131, isco :=7233]
banco[var_ocup == 9143, isco :=7233]
banco[var_ocup == 9191, isco :=7233]
banco[var_ocup == 9192, isco :=7241]
banco[var_ocup == 9501, isco :=7241]
banco[var_ocup == 9503, isco :=7241]
banco[var_ocup == 9541, isco :=7241]
banco[var_ocup == 3132, isco :=7242]
banco[var_ocup == 9511, isco :=7242]
banco[var_ocup == 9542, isco :=7242]
banco[var_ocup == 5231, isco :=7243]
banco[var_ocup == 9531, isco :=7243]
banco[var_ocup == 9543, isco :=7243]
banco[var_ocup == 9912, isco :=7243]
banco[var_ocup == 7313, isco :=7244]
banco[var_ocup == 9513, isco :=7245]
banco[var_ocup == 7401, isco :=7311]
banco[var_ocup == 7411, isco :=7311]
banco[var_ocup == 9151, isco :=7311]
banco[var_ocup == 9153, isco :=7311]
banco[var_ocup == 7421, isco :=7312]
banco[var_ocup == 9152, isco :=7312]
banco[var_ocup == 7501, isco :=7313]
banco[var_ocup == 7519, isco :=7313]
banco[var_ocup == 7523, isco :=7321]
banco[var_ocup == 8281, isco :=7321]
banco[var_ocup == 7502, isco :=7322]
banco[var_ocup == 7521, isco :=7322]
banco[var_ocup == 7522, isco :=7322]
banco[var_ocup == 7524, isco :=7324]
banco[var_ocup == 7620, isco :=7441]
banco[var_ocup == 7651, isco :=7441]
banco[var_ocup == 7654, isco :=7435]
banco[var_ocup == 7686, isco :=7341]
banco[var_ocup == 7661, isco :=7343]
banco[var_ocup == 7664, isco :=7344]
banco[var_ocup == 9154, isco :=7344]
banco[var_ocup == 7663, isco :=7345]
banco[var_ocup == 7687, isco :=7345]
banco[var_ocup == 8485, isco :=7411]
banco[var_ocup == 8493, isco :=7412]
banco[var_ocup == 8484, isco :=7415]
banco[var_ocup == 8421, isco :=7416]
banco[var_ocup == 8423, isco :=7416]
banco[var_ocup == 8429, isco :=7416]
banco[var_ocup == 7721, isco :=7421]
banco[var_ocup == 7701, isco :=7422]
banco[var_ocup == 7711, isco :=7422]
banco[var_ocup == 7741, isco :=7422]
banco[var_ocup == 7751, isco :=7422]
banco[var_ocup == 7733, isco :=7423]
banco[var_ocup == 7764, isco :=7424]
banco[var_ocup == 7611, isco :=7431]
banco[var_ocup == 7630, isco :=7432]
banco[var_ocup == 7681, isco :=7432]
banco[var_ocup == 7618, isco :=7433]
banco[var_ocup == 7650, isco :=7433]
banco[var_ocup == 7631, isco :=7435]
banco[var_ocup == 7633, isco :=8263]
banco[var_ocup == 7652, isco :=7436]
banco[var_ocup == 7682, isco :=7436]
banco[var_ocup == 7621, isco :=7441]
banco[var_ocup == 7622, isco :=7441]
banco[var_ocup == 7623, isco :=7441]
banco[var_ocup == 7641, isco :=7442]
banco[var_ocup == 7643, isco :=7442]
banco[var_ocup == 7683, isco :=7442]
banco[var_ocup == 7112, isco :=8111]
banco[var_ocup == 7121, isco :=8112]
banco[var_ocup == 7113, isco :=8113]
banco[var_ocup == 7213, isco :=8113]
banco[var_ocup == 7215, isco :=8113]
banco[var_ocup == 8212, isco :=8121]
banco[var_ocup == 7222, isco :=8122]
banco[var_ocup == 7231, isco :=8122]
banco[var_ocup == 8213, isco :=8122]
banco[var_ocup == 8221, isco :=8122]
banco[var_ocup == 7224, isco :=8124]
banco[var_ocup == 7245, isco :=8124]
banco[var_ocup == 8231, isco :=8139]
banco[var_ocup == 8232, isco :=8139]
banco[var_ocup == 7731, isco :=8141]
banco[var_ocup == 7732, isco :=8141]
banco[var_ocup == 8311, isco :=8142]
banco[var_ocup == 8321, isco :=8143]
banco[var_ocup == 8110, isco :=8151]
banco[var_ocup == 8111, isco :=8152]
banco[var_ocup == 8112, isco :=8152]
banco[var_ocup == 8116, isco :=8152]
banco[var_ocup == 8211, isco :=8152]
banco[var_ocup == 8113, isco :=8153]
banco[var_ocup == 8114, isco :=8154]
banco[var_ocup == 8115, isco :=8155]
banco[var_ocup == 8101, isco :=8159]
banco[var_ocup == 8103, isco :=8159]
banco[var_ocup == 8131, isco :=8159]
banco[var_ocup == 8601, isco :=8161]
banco[var_ocup == 8611, isco :=8161]
banco[var_ocup == 8612, isco :=8161]
banco[var_ocup == 8621, isco :=8162]
banco[var_ocup == 8622, isco :=8163]
banco[var_ocup == 8623, isco :=8163]
banco[var_ocup == 8624, isco :=8163]
banco[var_ocup == 8625, isco :=8163]
banco[var_ocup == 7811, isco :=8172]
banco[var_ocup == 7813, isco :=8172]
banco[var_ocup == 7154, isco :=8212]
banco[var_ocup == 8233, isco :=8212]
banco[var_ocup == 8118, isco :=8221]
banco[var_ocup == 8121, isco :=8222]
banco[var_ocup == 7232, isco :=8223]
banco[var_ocup == 8214, isco :=8223]
banco[var_ocup == 8117, isco :=8231]
banco[var_ocup == 9921, isco :=8231]
banco[var_ocup == 8102, isco :=8232]
banco[var_ocup == 7734, isco :=8240]
banco[var_ocup == 7735, isco :=8240]
banco[var_ocup == 7662, isco :=8251]
banco[var_ocup == 7660, isco :=8252]
banco[var_ocup == 8301, isco :=8253]
banco[var_ocup == 8339, isco :=8253]
banco[var_ocup == 7612, isco :=8261]
banco[var_ocup == 7613, isco :=8262]
banco[var_ocup == 7632, isco :=8263]
banco[var_ocup == 7614, isco :=8264]
banco[var_ocup == 7640, isco :=8266]
banco[var_ocup == 7642, isco :=8266]
banco[var_ocup == 7601, isco :=8269]
banco[var_ocup == 7602, isco :=8269]
banco[var_ocup == 7603, isco :=8269]
banco[var_ocup == 7604, isco :=8269]
banco[var_ocup == 7605, isco :=8269]
banco[var_ocup == 7653, isco :=8269]
banco[var_ocup == 8491, isco :=8271]
banco[var_ocup == 8492, isco :=8272]
banco[var_ocup == 8411, isco :=8273]
banco[var_ocup == 8412, isco :=8276]
banco[var_ocup == 8413, isco :=8276]
banco[var_ocup == 8416, isco :=8277]
banco[var_ocup == 8417, isco :=8278]
banco[var_ocup == 7251, isco :=8281]
banco[var_ocup == 7252, isco :=8281]
banco[var_ocup == 7253, isco :=8281]
banco[var_ocup == 7254, isco :=8281]
banco[var_ocup == 7311, isco :=8283]
banco[var_ocup == 7312, isco :=8283]
banco[var_ocup == 7255, isco :=8290]
banco[var_ocup == 7256, isco :=8290]
banco[var_ocup == 7826, isco :=8311]
banco[var_ocup == 7831, isco :=8312]
banco[var_ocup == 7820, isco :=8322]
banco[var_ocup == 7823, isco :=8322]
banco[var_ocup == 7824, isco :=8322]
banco[var_ocup == 7825, isco :=8324]
banco[var_ocup == 6410, isco :=8331]
banco[var_ocup == 6420, isco :=8331]
banco[var_ocup == 6430, isco :=8331]
banco[var_ocup == 7151, isco :=8332]
banco[var_ocup == 7821, isco :=8333]
banco[var_ocup == 7822, isco :=8333]
banco[var_ocup == 7827, isco :=8340]
banco[var_ocup == 5242, isco :=9111]
banco[var_ocup == 5243, isco :=9111]
banco[var_ocup == 5241, isco :=9113]
banco[var_ocup == 5121, isco :=9131]
banco[var_ocup == 5133, isco :=9132]
banco[var_ocup == 5141, isco :=9132]
banco[var_ocup == 5169, isco :=9133]
banco[var_ocup == 5142, isco :=9141]
banco[var_ocup == 9914, isco :=9141]
banco[var_ocup == 4123, isco :=9151]
banco[var_ocup == 5191, isco :=9151]
banco[var_ocup == 5174, isco :=9152]
banco[var_ocup == 5192, isco :=9161]
banco[var_ocup == 6210, isco :=9211]
banco[var_ocup == 6229, isco :=9211]
banco[var_ocup == 6239, isco :=9211]
banco[var_ocup == 7114, isco :=9311]
banco[var_ocup == 9911, isco :=9312]
banco[var_ocup == 9922, isco :=9312]
banco[var_ocup == 7842, isco :=9321]
banco[var_ocup == 8711, isco :=9321]
banco[var_ocup == 7801, isco :=9322]
banco[var_ocup == 7841, isco :=9322]
banco[var_ocup == 7828, isco :=9332]
banco[var_ocup == 5221, isco :=9333]
banco[var_ocup == 7832, isco :=9333]
banco[var_ocup==6301 & trtot >= 2, isco==3213]
banco[var_ocup==6139 & PosicaoOcup == 2, isco==1311]
banco[var_ocup==6129 & PosicaoOcup == 2, isco==1311]
banco[var_ocup==6110 & PosicaoOcup == 2, isco==1311]
banco[var_ocup == 9999 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 9998 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 9988 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 9914 & isic == 10, isco := 9113]
banco[var_ocup == 5142 & isic == 10, isco := 9113]
banco[var_ocup == 4231 & isic == 80, isco==4133]
banco[var_ocup == 3711 & trtot < 4, isco := 4141]
banco[var_ocup == 0 & isic == 10 & trtot <= 1, isco := 9211]
banco[var_ocup == 5211, isco := 5220]
banco[var_ocup == 5211, isco := 5220]
banco[var_ocup == 5211 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco := 1314]
banco[var_ocup == 5211 & ((PosicaoOcup == 3 & isic == 60) | PosicaoOcup == 2), isco := 1314]
banco[var_ocup == 5134, isco := 5123]
banco[var_ocup == 5134 & ((PosicaoOcup == 3 & isic == 70) | PosicaoOcup == 2), isco := 1315]
banco[isco ==6154 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6153 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6152 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6151 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6142 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6141 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6122 & PosicaoOcup == 1, isco := 9211]
banco[isco ==6121 & PosicaoOcup == 1, isco := 9211]
banco[isco == 2131 & trtot < 5 , isco := 3121]
banco[(isco==1210|isco==1229) & isic == 10 & PosicaoOcup==0, isco := 6111]
banco[(isco==1210|isco==1229) & isic != 10 & PosicaoOcup==0, isco := 5220]
banco[(isco==1210|isco==1229) & (isic==90) & (PosicaoOcup==2 | PosicaoOcup==3), isco := 1317]
banco[(isco==1210|isco==1229) & (isic==90) & (PosicaoOcup==1), isco := 1227]
banco[(isco==1210|isco==1229) & (isic==80) & (PosicaoOcup==2 | PosicaoOcup==3), isco := 1316]
banco[(isco==1210|isco==1229) & (isic==80) & (PosicaoOcup==1), isco := 1226]
banco[(isco==1210|isco==1229) & (isic==70) & (PosicaoOcup==2 | PosicaoOcup==3), isco := 1315]
banco[(isco==1210|isco==1229) & (isic==70) & (PosicaoOcup==1), isco := 1225]
banco[(isco==1210|isco==1229) & (isic==60) & (PosicaoOcup==2 | PosicaoOcup==3), isco := 1314]
banco[(isco==1210|isco==1229) & (isic==60) & (PosicaoOcup==1), isco := 1224]
banco[(isco==1210|isco==1229) & (isic==50) & (PosicaoOcup==2 | PosicaoOcup==3), isco := 1313]
banco[(isco==1210|isco==1229) & (isic==50) & (PosicaoOcup==1), isco := 1223]
banco[(isco==1210|isco==1229) & (isic==20|isic==30|isic==40) & (PosicaoOcup==2 |PosicaoOcup==3), isco := 1312]
banco[(isco==1210|isco==1229) & (isic==20|isic==30|isic==40) & (PosicaoOcup==1), isco := 1222]
banco[(isco==1210|isco==1229) & (isic==100), isco := 1120]
}
if( tipo == "censo" & ano == 2010){
banco[var_ocup == 0, isco := NA]
banco[var_ocup == 5168, isco := NA]
banco[var_ocup == 110, isco := 110]
banco[var_ocup == 210, isco := 110]
banco[var_ocup == 299, isco := 110]
banco[var_ocup == 411, isco := 110]
banco[var_ocup == 412, isco := 110]
banco[var_ocup == 511, isco := 110]
banco[var_ocup == 512, isco := 110]
banco[var_ocup == 599, isco := 110]
banco[var_ocup == 999, isco := 110]
banco[var_ocup == 5411, isco := 110]
banco[var_ocup == 1111, isco := 1110]
banco[var_ocup == 1113, isco := 1110]
banco[var_ocup == 1112, isco := 1120]
banco[var_ocup == 1114, isco := 1143]
banco[var_ocup == 1120, isco := 1210]
banco[var_ocup == 1311, isco := 1221]
banco[var_ocup == 1312, isco := 1221]
banco[var_ocup == 1321, isco := 1222]
banco[var_ocup == 1322, isco := 1222]
banco[var_ocup == 1323, isco := 1223]
banco[var_ocup == 1420, isco := 1224]
banco[var_ocup == 1411, isco := 1225]
banco[var_ocup == 1412, isco := 1225]
banco[var_ocup == 1324, isco := 1226]
banco[var_ocup == 1330, isco := 1226]
banco[var_ocup == 1219, isco := 1229]
banco[var_ocup == 1346, isco := 1227]
banco[var_ocup == 1213, isco := 1229]
banco[var_ocup == 1341, isco := 1229]
banco[var_ocup == 1342, isco := 1229]
banco[var_ocup == 1343, isco := 1229]
banco[var_ocup == 1344, isco := 1229]
banco[var_ocup == 1345, isco := 1229]
banco[var_ocup == 1349, isco := 1229]
banco[var_ocup == 1431, isco := 1229]
banco[var_ocup == 1439, isco := 1229]
banco[var_ocup == 1211, isco := 1231]
banco[var_ocup == 1212, isco := 1232]
banco[var_ocup == 1221, isco := 1233]
banco[var_ocup == 1222, isco := 1234]
banco[var_ocup == 1223, isco := 1237]
banco[var_ocup == 2111, isco := 2111]
banco[var_ocup == 2112, isco := 2112]
banco[var_ocup == 2113, isco := 2113]
banco[var_ocup == 2114, isco := 2114]
banco[var_ocup == 2120, isco := 2121]
banco[var_ocup == 2511, isco := 2131]
banco[var_ocup == 2512, isco := 2131]
banco[var_ocup == 2513, isco := 2131]
banco[var_ocup == 2514, isco := 2131]
banco[var_ocup == 2519, isco := 2131]
banco[var_ocup == 2521, isco := 2131]
banco[var_ocup == 2522, isco := 2131]
banco[var_ocup == 2523, isco := 2131]
banco[var_ocup == 2529, isco := 2131]
banco[var_ocup == 2161, isco := 2141]
banco[var_ocup == 2162, isco := 2141]
banco[var_ocup == 2164, isco := 2141]
banco[var_ocup == 2142, isco := 2142]
banco[var_ocup == 2151, isco := 2143]
banco[var_ocup == 2152, isco := 2144]
banco[var_ocup == 2153, isco := 2144]
banco[var_ocup == 2144, isco := 2145]
banco[var_ocup == 2145, isco := 2146]
banco[var_ocup == 2146, isco := 2147]
banco[var_ocup == 2165, isco := 2148]
banco[var_ocup == 2141, isco := 2149]
banco[var_ocup == 2143, isco := 2149]
banco[var_ocup == 2149, isco := 2149]
banco[var_ocup == 2131, isco := 2211]
banco[var_ocup == 2133, isco := 2211]
banco[var_ocup == 2132, isco := 2213]
banco[var_ocup == 2211, isco := 2221]
banco[var_ocup == 2212, isco := 2221]
banco[var_ocup == 2261, isco := 2222]
banco[var_ocup == 2250, isco := 2223]
banco[var_ocup == 2262, isco := 2224]
banco[var_ocup == 2263, isco := 2229]
banco[var_ocup == 2266, isco := 2229]
banco[var_ocup == 2269, isco := 2229]
banco[var_ocup == 2221, isco := 2230]
banco[var_ocup == 2222, isco := 2230]
banco[var_ocup == 2310, isco := 2310]
banco[var_ocup == 2330, isco := 2320]
banco[var_ocup == 2341, isco := 2331]
banco[var_ocup == 2342, isco := 2332]
banco[var_ocup == 2351, isco := 2351]
banco[var_ocup == 2320, isco := 2359]
banco[var_ocup == 2352, isco := 2359]
banco[var_ocup == 2353, isco := 2359]
banco[var_ocup == 2354, isco := 2359]
banco[var_ocup == 2355, isco := 2359]
banco[var_ocup == 2356, isco := 2359]
banco[var_ocup == 2359, isco := 2359]
banco[var_ocup == 3423, isco := 2359]
banco[var_ocup == 5165, isco := 2359]
banco[var_ocup == 2411, isco := 2411]
banco[var_ocup == 2412, isco := 2411]
banco[var_ocup == 2423, isco := 2412]
banco[var_ocup == 2424, isco := 2412]
banco[var_ocup == 2413, isco := 2419]
banco[var_ocup == 2421, isco := 2419]
banco[var_ocup == 2422, isco := 2419]
banco[var_ocup == 2431, isco := 2419]
banco[var_ocup == 2432, isco := 2419]
banco[var_ocup == 2611, isco := 2421]
banco[var_ocup == 2619, isco := 2421]
banco[var_ocup == 2612, isco := 2422]
banco[var_ocup == 2621, isco := 2431]
banco[var_ocup == 2622, isco := 2432]
banco[var_ocup == 2631, isco := 2441]
banco[var_ocup == 2632, isco := 2442]
banco[var_ocup == 2633, isco := 2443]
banco[var_ocup == 2643, isco := 2444]
banco[var_ocup == 2634, isco := 2445]
banco[var_ocup == 2635, isco := 2446]
banco[var_ocup == 2641, isco := 2451]
banco[var_ocup == 2642, isco := 2451]
banco[var_ocup == 2651, isco := 2452]
banco[var_ocup == 2652, isco := 2453]
banco[var_ocup == 2653, isco := 2454]
banco[var_ocup == 2654, isco := 2455]
banco[var_ocup == 2655, isco := 2455]
banco[var_ocup == 2659, isco := 2455]
banco[var_ocup == 2636, isco := 2460]
banco[var_ocup == 3111, isco := 3111]
banco[var_ocup == 3139, isco := 3111]
banco[var_ocup == 3112, isco := 3112]
banco[var_ocup == 3113, isco := 3113]
banco[var_ocup == 3114, isco := 3114]
banco[var_ocup == 3522, isco := 3114]
banco[var_ocup == 3115, isco := 3115]
banco[var_ocup == 3116, isco := 3116]
banco[var_ocup == 3117, isco := 3117]
banco[var_ocup == 3118, isco := 3118]
banco[var_ocup == 3119, isco := 3119]
banco[var_ocup == 3511, isco := 3121]
banco[var_ocup == 3512, isco := 3121]
banco[var_ocup == 3513, isco := 3121]
banco[var_ocup == 3514, isco := 3121]
banco[var_ocup == 3431, isco := 3131]
banco[var_ocup == 3521, isco := 3131]
banco[var_ocup == 3211, isco := 3133]
banco[var_ocup == 3151, isco := 3141]
banco[var_ocup == 3152, isco := 3142]
banco[var_ocup == 3153, isco := 3143]
banco[var_ocup == 3154, isco := 3144]
banco[var_ocup == 3155, isco := 3145]
banco[var_ocup == 3257, isco := 3152]
banco[var_ocup == 7543, isco := 3152]
banco[var_ocup == 3141, isco := 3211]
banco[var_ocup == 3212, isco := 3211]
banco[var_ocup == 3142, isco := 3212]
banco[var_ocup == 3143, isco := 3212]
banco[var_ocup == 2240, isco := 3221]
banco[var_ocup == 3256, isco := 3221]
banco[var_ocup == 3252, isco := 3222]
banco[var_ocup == 2265, isco := 3223]
banco[var_ocup == 2267, isco := 3224]
banco[var_ocup == 3254, isco := 3224]
banco[var_ocup == 3214, isco := 3225]
banco[var_ocup == 3251, isco := 3225]
banco[var_ocup == 2264, isco := 3226]
banco[var_ocup == 3255, isco := 3226]
banco[var_ocup == 3240, isco := 3227]
banco[var_ocup == 3213, isco := 3228]
banco[var_ocup == 3259, isco := 3229]
banco[var_ocup == 3221, isco := 3231]
banco[var_ocup == 3222, isco := 3232]
banco[var_ocup == 2230, isco := 3241]
banco[var_ocup == 3230, isco := 3241]
banco[var_ocup == 3413, isco := 3242]
banco[var_ocup == 3311, isco := 3411]
banco[var_ocup == 3312, isco := 3411]
banco[var_ocup == 3321, isco := 3412]
banco[var_ocup == 3334, isco := 3413]
banco[var_ocup == 4221, isco := 3414]
banco[var_ocup == 2433, isco := 3415]
banco[var_ocup == 2434, isco := 3415]
banco[var_ocup == 3322, isco := 3415]
banco[var_ocup == 3339, isco := 3415]
banco[var_ocup == 3323, isco := 3416]
banco[var_ocup == 3315, isco := 3417]
banco[var_ocup == 3324, isco := 3421]
banco[var_ocup == 3331, isco := 3422]
banco[var_ocup == 3351, isco := 3422]
banco[var_ocup == 3333, isco := 3423]
banco[var_ocup == 3341, isco := 3431]
banco[var_ocup == 3342, isco := 3431]
banco[var_ocup == 3343, isco := 3431]
banco[var_ocup == 3344, isco := 3431]
banco[var_ocup == 3411, isco := 3432]
banco[var_ocup == 3313, isco := 3433]
banco[var_ocup == 3314, isco := 3434]
banco[var_ocup == 3332, isco := 3439]
banco[var_ocup == 3433, isco := 3439]
banco[var_ocup == 3435, isco := 3439]
banco[var_ocup == 3352, isco := 3442]
banco[var_ocup == 3353, isco := 3443]
banco[var_ocup == 3354, isco := 3444]
banco[var_ocup == 3359, isco := 3444]
banco[var_ocup == 3355, isco := 3450]
banco[var_ocup == 3412, isco := 3460]
banco[var_ocup == 2163, isco := 3471]
banco[var_ocup == 2166, isco := 3471]
banco[var_ocup == 3432, isco := 3471]
banco[var_ocup == 2656, isco := 3472]
banco[var_ocup == 3421, isco := 3475]
banco[var_ocup == 3422, isco := 3475]
banco[var_ocup == 4131, isco := 4111]
banco[var_ocup == 4132, isco := 4113]
banco[var_ocup == 4120, isco := 4115]
banco[var_ocup == 4211, isco := 4121]
banco[var_ocup == 4311, isco := 4121]
banco[var_ocup == 4313, isco := 4121]
banco[var_ocup == 4227, isco := 4122]
banco[var_ocup == 4312, isco := 4122]
banco[var_ocup == 4321, isco := 4131]
banco[var_ocup == 4322, isco := 4132]
banco[var_ocup == 4323, isco := 4133]
banco[var_ocup == 4411, isco := 4141]
banco[var_ocup == 4415, isco := 4141]
banco[var_ocup == 4412, isco := 4142]
banco[var_ocup == 4413, isco := 4143]
banco[var_ocup == 4414, isco := 4144]
banco[var_ocup == 4110, isco := 4190]
banco[var_ocup == 4416, isco := 4190]
banco[var_ocup == 4419, isco := 4190]
banco[var_ocup == 5230, isco := 4211]
banco[var_ocup == 4212, isco := 4212]
banco[var_ocup == 4213, isco := 4214]
banco[var_ocup == 4214, isco := 4215]
banco[var_ocup == 4224, isco := 4222]
banco[var_ocup == 4225, isco := 4222]
banco[var_ocup == 4226, isco := 4222]
banco[var_ocup == 4229, isco := 4222]
banco[var_ocup == 4222, isco := 4223]
banco[var_ocup == 4223, isco := 4223]
banco[var_ocup == 5111, isco := 5111]
banco[var_ocup == 5112, isco := 5112]
banco[var_ocup == 8331, isco := 5112]
banco[var_ocup == 5113, isco := 5113]
banco[var_ocup == 5151, isco := 5121]
banco[var_ocup == 5152, isco := 5121]
banco[var_ocup == 3434, isco := 5122]
banco[var_ocup == 5120, isco := 5122]
banco[var_ocup == 9411, isco := 5122]
banco[var_ocup == 9412, isco := 5122]
banco[var_ocup == 5131, isco := 5123]
banco[var_ocup == 5132, isco := 5123]
banco[var_ocup == 5311, isco := 5131]
banco[var_ocup == 5312, isco := 5131]
banco[var_ocup == 3258, isco := 5132]
banco[var_ocup == 5321, isco := 5132]
banco[var_ocup == 5329, isco := 5132]
banco[var_ocup == 5322, isco := 5133]
banco[var_ocup == 3253, isco := 5139]
banco[var_ocup == 5164, isco := 5139]
banco[var_ocup == 5141, isco := 5141]
banco[var_ocup == 5142, isco := 5141]
banco[var_ocup == 5162, isco := 5142]
banco[var_ocup == 5163, isco := 5143]
banco[var_ocup == 5169, isco := 5149]
banco[var_ocup == 5161, isco := 5151]
banco[var_ocup == 5412, isco := 5162]
banco[var_ocup == 5413, isco := 5163]
banco[var_ocup == 5414, isco := 9152]
banco[var_ocup == 5419, isco := 5169]
banco[var_ocup == 5241, isco := 5210]
banco[var_ocup == 5221, isco := 5220]
banco[var_ocup == 5222, isco := 5220]
banco[var_ocup == 5223, isco := 5220]
banco[var_ocup == 5242, isco := 5220]
banco[var_ocup == 5245, isco := 5220]
banco[var_ocup == 5246, isco := 5220]
banco[var_ocup == 5249, isco := 5220]
banco[var_ocup == 5211, isco := 5230]
banco[var_ocup == 6111, isco := 6111]
banco[var_ocup == 6114, isco := 6111]
banco[var_ocup == 6112, isco := 6113]
banco[var_ocup == 9214, isco := 9211]
banco[var_ocup == 6121, isco := 6121]
banco[var_ocup == 6122, isco := 6122]
banco[var_ocup == 6123, isco := 6123]
banco[var_ocup == 6129, isco := 6129]
banco[var_ocup == 6130, isco := 6141]
banco[var_ocup == 6210, isco := 6141]
banco[var_ocup == 9215, isco := 9212]
banco[var_ocup == 6221, isco := 6151]
banco[var_ocup == 6225, isco := 6152]
banco[var_ocup == 6224, isco := 6154]
banco[var_ocup == 9216, isco := 9212]
banco[var_ocup == 3121, isco := 7111]
banco[var_ocup == 8111, isco := 7111]
banco[var_ocup == 7542, isco := 7112]
banco[var_ocup == 7113, isco := 7113]
banco[var_ocup == 7111, isco := 7122]
banco[var_ocup == 7112, isco := 7122]
banco[var_ocup == 9312, isco := 7122]
banco[var_ocup == 9313, isco := 7122]
banco[var_ocup == 7114, isco := 7123]
banco[var_ocup == 7115, isco := 7124]
banco[var_ocup == 3123, isco := 7129]
banco[var_ocup == 7119, isco := 7129]
banco[var_ocup == 7121, isco := 7131]
banco[var_ocup == 7122, isco := 7132]
banco[var_ocup == 7123, isco := 7133]
banco[var_ocup == 7124, isco := 7134]
banco[var_ocup == 7125, isco := 7135]
banco[var_ocup == 7126, isco := 7136]
banco[var_ocup == 7411, isco := 7137]
banco[var_ocup == 7131, isco := 7141]
banco[var_ocup == 7132, isco := 7142]
banco[var_ocup == 7133, isco := 7143]
banco[var_ocup == 7544, isco := 7143]
banco[var_ocup == 7211, isco := 7211]
banco[var_ocup == 7212, isco := 7212]
banco[var_ocup == 7213, isco := 7213]
banco[var_ocup == 7214, isco := 7214]
banco[var_ocup == 7215, isco := 7215]
banco[var_ocup == 7541, isco := 7216]
banco[var_ocup == 7221, isco := 7221]
banco[var_ocup == 7222, isco := 7222]
banco[var_ocup == 7223, isco := 7223]
banco[var_ocup == 7224, isco := 7224]
banco[var_ocup == 7231, isco := 7231]
banco[var_ocup == 7234, isco := 7231]
banco[var_ocup == 7232, isco := 7232]
banco[var_ocup == 7127, isco := 7233]
banco[var_ocup == 7233, isco := 7233]
banco[var_ocup == 7412, isco := 7241]
banco[var_ocup == 7421, isco := 7242]
banco[var_ocup == 7422, isco := 7244]
banco[var_ocup == 7413, isco := 7245]
banco[var_ocup == 7311, isco := 7311]
banco[var_ocup == 7312, isco := 7312]
banco[var_ocup == 7313, isco := 7313]
banco[var_ocup == 7314, isco := 7321]
banco[var_ocup == 7315, isco := 7322]
banco[var_ocup == 7316, isco := 7324]
banco[var_ocup == 7317, isco := 7331]
banco[var_ocup == 7319, isco := 7331]
banco[var_ocup == 7549, isco := 7331]
banco[var_ocup == 7318, isco := 7332]
banco[var_ocup == 7321, isco := 7341]
banco[var_ocup == 8132, isco := 7344]
banco[var_ocup == 7323, isco := 7345]
banco[var_ocup == 7511, isco := 7411]
banco[var_ocup == 7512, isco := 7412]
banco[var_ocup == 7513, isco := 7413]
banco[var_ocup == 7514, isco := 7414]
banco[var_ocup == 7515, isco := 7415]
banco[var_ocup == 7516, isco := 7416]
banco[var_ocup == 7521, isco := 7421]
banco[var_ocup == 7522, isco := 7422]
banco[var_ocup == 7523, isco := 7423]
banco[var_ocup == 8152, isco := 8262]
banco[var_ocup == 7531, isco := 7433]
banco[var_ocup == 7532, isco := 7435]
banco[var_ocup == 7533, isco := 7436]
banco[var_ocup == 7534, isco := 7437]
banco[var_ocup == 7535, isco := 7441]
banco[var_ocup == 7536, isco := 7442]
banco[var_ocup == 8112, isco := 8112]
banco[var_ocup == 8113, isco := 8113]
banco[var_ocup == 3135, isco := 8121]
banco[var_ocup == 8121, isco := 8121]
banco[var_ocup == 8181, isco := 8131]
banco[var_ocup == 8172, isco := 8141]
banco[var_ocup == 8171, isco := 8142]
banco[var_ocup == 8131, isco := 8151]
banco[var_ocup == 3133, isco := 8152]
banco[var_ocup == 3134, isco := 8155]
banco[var_ocup == 3131, isco := 8161]
banco[var_ocup == 8182, isco := 8162]
banco[var_ocup == 3132, isco := 8163]
banco[var_ocup == 3122, isco := 8171]
banco[var_ocup == 8114, isco := 8212]
banco[var_ocup == 8122, isco := 8223]
banco[var_ocup == 8141, isco := 8231]
banco[var_ocup == 8142, isco := 8232]
banco[var_ocup == 7322, isco := 8251]
banco[var_ocup == 8143, isco := 8253]
banco[var_ocup == 8151, isco := 8261]
banco[var_ocup == 8153, isco := 8263]
banco[var_ocup == 8154, isco := 8264]
banco[var_ocup == 8157, isco := 8264]
banco[var_ocup == 8155, isco := 8265]
banco[var_ocup == 8156, isco := 8266]
banco[var_ocup == 8159, isco := 8269]
banco[var_ocup == 8160, isco := 8271]
banco[var_ocup == 8211, isco := 8281]
banco[var_ocup == 8212, isco := 8282]
banco[var_ocup == 8189, isco := 8290]
banco[var_ocup == 8219, isco := 8290]
banco[var_ocup == 8311, isco := 8311]
banco[var_ocup == 8312, isco := 8312]
banco[var_ocup == 8321, isco := 8321]
banco[var_ocup == 8322, isco := 8322]
banco[var_ocup == 8332, isco := 8324]
banco[var_ocup == 8341, isco := 8331]
banco[var_ocup == 8342, isco := 8332]
banco[var_ocup == 8343, isco := 8333]
banco[var_ocup == 8344, isco := 8334]
banco[var_ocup == 8350, isco := 8340]
banco[var_ocup == 5212, isco := 9111]
banco[var_ocup == 9520, isco := 9112]
banco[var_ocup == 5243, isco := 9113]
banco[var_ocup == 5244, isco := 9113]
banco[var_ocup == 9510, isco := 9120]
banco[var_ocup == 9111, isco := 9131]
banco[var_ocup == 9112, isco := 9132]
banco[var_ocup == 9129, isco := 9132]
banco[var_ocup == 9121, isco := 9133]
banco[var_ocup == 9122, isco := 9142]
banco[var_ocup == 9123, isco := 9142]
banco[var_ocup == 9621, isco := 9151]
banco[var_ocup == 5153, isco := 9141]
banco[var_ocup == 9623, isco := 9153]
banco[var_ocup == 9611, isco := 9161]
banco[var_ocup == 9612, isco := 9161]
banco[var_ocup == 9613, isco := 9162]
banco[var_ocup == 9622, isco := 9162]
banco[var_ocup == 9624, isco := 9162]
banco[var_ocup == 9211, isco := 9211]
banco[var_ocup == 9212, isco := 9211]
banco[var_ocup == 9213, isco := 9211]
banco[var_ocup == 9311, isco := 9311]
banco[var_ocup == 9329, isco := 9321]
banco[var_ocup == 8183, isco := 9322]
banco[var_ocup == 9321, isco := 9322]
banco[var_ocup == 9331, isco := 9331]
banco[var_ocup == 9332, isco := 9332]
banco[var_ocup == 9333, isco := 9333]
banco[var_ocup == 9334, isco := 9333]
banco[var_ocup == 9629, isco := NA]
banco[var_ocup == 9999, isco := NA]
banco[var_ocup == 9998, isco := NA]
banco[var_ocup == 9988, isco := NA]
banco[isco==6122 & PosicaoOcup == 2, isco := 1311]
banco[isco ==6121 & PosicaoOcup == 2, isco := 1311]
banco[isco==1237 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1234 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1233 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1232 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1231 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1229 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1227 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1226 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1225 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1224 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1223 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1222 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1221 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1210 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco==1143 & isic == 100 & PosicaoOcup != 3, isco := 1120]
banco[isco == 2131 & trtot < 5 , isco := 3121]
banco[(isco==9211 | isco == 6113) & (isic == 114 | isic == 120), isco := 9141]
banco[isco==6129 & PosicaoOcup == 1, isco := 9211]
banco[isco==6123 & PosicaoOcup == 1, isco := 9211]
banco[isco==6113 & PosicaoOcup == 1, isco := 9211]
banco[isco==6111 & PosicaoOcup == 1, isco := 9211]
banco[isco ==6154 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6153 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6152 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6151 & PosicaoOcup == 1, isco := 9213]
banco[isco ==6142 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6141 & PosicaoOcup == 1, isco := 9212]
banco[isco ==6122 & PosicaoOcup == 1, isco := 9211]
banco[isco ==6121 & PosicaoOcup == 1, isco := 9211]
banco[isco==6129 & PosicaoOcup == 2, isco := 1311]
banco[isco==6123 & PosicaoOcup == 2, isco := 1311]
banco[isco==6113 & PosicaoOcup == 2, isco := 1311]
banco[isco==6111 & PosicaoOcup == 2, isco := 1311]
}
return(banco[,isco])
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.